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BEIT #92 


Although BETT 1992 at the Barbican in January 
had little new to offer BBC micro users, it was 
surprising (or was it?) just how many stands 
featured a BBC model B or Master 128 still 
performing sterling work. It is perhaps a measure of 
the lasting success of the BBC micro within schools 
that there are clearly so many machines still in use. 


When apparently more sophisticated and seductive 
machines are available, it is easy to persuade oneself 
that an upgrade is essential. The widespread 
availability of Desktop Publishing on machines like 
the Archimedes, for example, is very impressive, but 
can lead to users spending hours on enhancing what 
might be little more than an internal memo (easily 
and more simply produced on any BBC model B or 
Master, and just as effective). 


That is not to say that up-market computers and 
associated software do not have their place, but I do 
suspect that users of those more sophisticated 
machines are sometimes guilty of trying to show off 
their own expertise. I'm sure we all do this from time 
to time - we're all human after all. The point of this 
is just to say that there are still many applications 
which can be more than adequately accomplished on 
the BBC micro, and that includes educational 
applications and many more. 


As an indication of the support (not always obvious) 
that does still exist for the BBC micro in education, 
we are including a round-up of appropriate 
companies in the news pages for this and next 
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month, In addition, if any reader has an interesting 
educational application which they make use of, 
consider whether this might not make the subject 
for a short article for publication in BEEBUG. If you 
are not sure, then drop us a line with a draft of what 
you propose. Remember that this magazine is now 
the only one still devoted to users of the BBC model 
B and Master series. 


PUBLIC DOMAIN SOFTWARE 


There seems to have been a late upsurge of interest 
in public domain software for the BBC micro. In 
contrast to other systems, PD software never really 
featured in the heyday of this machine, but now in 
the twilight of life, such software seems to be coming 
into its own. Our recently established PD software 
column seems to be proving quite popular, and as a 
result of the publicity which we have given to this 
subject, more sources are appearing. 


PD software, at its best, provides a cheap source of 
good quality software (though without the printed 
documentation or other backup and support which 
might be expected with commercial offerings). If you 
know of any PD software not covered in the list 
published in this issue, then please let us know, and 
we can pass the details on to Alan Blundell who 
compiles this column for us. Likewise, if you have 
any software which you would like to see distributed 
in the public domain, then Alan can probably help 
there too. However, if it's suitable for publication in 
BEEBUG, then remember that we do pay for all 
material which we publish. 


M.W. 


Beebug March 1992 


Pr N E 


BETT 1992 

BETT 1992 held at the Barbican Exhibition Centre 
in January was very busy. If you were unable to 
attend, or didn’t manage to find all the relevant 
stands, here’s a round up of companies still 
supporting the BBC Micro range. We don’t have 
the space to deal with all companies in this issue, 
so we will conclude this summary next month. 


Appian Way Software specialises in secondary 
school history software and applications for the 
primary sector. AVP is well known for its 
substantial Big Black Catalogue, one of the most 
comprehensive listings of educational software 
from a variety of sources. The Cambridge 
Curriculum Agency, formed from the 
Cambridge LEA Advisory Service, provides 
support and advice on all curriculum areas, and 
offers a wide range of printed support materials. 


A wide range of concept keyboards for use with 
various systems can be had from The Concept 
Keyboard Company. Coralplan specialises in 
software giving live access to the French Minitel 
service, for French language and information, 
business studies, European studies etc. 
Electromusic Research (EMR) still provides 
music and MIDI based software for the BBC 
micro range, while educational specialist ESM is 
another company still active in the BBC micro 
field. For up-to-date health information, 
Healthdata is the place to look. Lego may sound 
like play to some, but there are many educational 
applications in communications and control, and 
Lego Dacta products cover all key stages. 


Contacts: 
Appian Way Software Ltd., Old Co-operative 
Buildings, Langley Park, Durham DH7 9XE, 
tel. 091-373 1389, fax 091-373 0731. 
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AVP, School Hill Centre, Chepstow, Gwent 
NP6 5PH, tel. (0291) 625139, fax (0291) 629671. 


Cambridge Curriculum Agency, Cottesmore 
Closem Westwood, Peterborough PE3 6TP, tel. 
(0733)264330. 


The Concept Keyboard Company Ltd., 
Moorside Road, Winnall Industrial Estate, 
Winchester S023 7RX, tel. (0962) 843322, fax 
(0962) 841657. 


Coralplan Ltd., 27 Elizabeth Mews, 
Hampstead, London NW3 4UH, tel. 071-483 
0119, fax 071-483 0120. 


EMR, 14 Mount Close, Wickford, Essex SS11 
8HG, tel. (0702) 335747, fax (0702) 348406. 


ESM, Abbeygate House, East Road, 
Cambridge CB1 1DB, tel. (0223) 65445, fax 
(0223) 460557. 


Healthdata, 21 Vicars Close, London E9 7HT, 
tel. 071-537 2311, fax 071-537 3679. 


Lego UK Ltd., Ruthin Road, Wrexham, Clwyd 
LL13 7TQ, tel. (0978) 290900, fax (0978) 290138. 


ALL FORMAT FAIRS 
Latest dates and venues for All Formats Computer 
Fairs are as follows: 

Mar 8 City Hall, Candleriggs, Glasgow. 

Mar 14 Horticultural Hall, Westminster. 

Mar 15 Brunel Centre, Temple Meads, Bristol. 

Mar 21 Donnington Park, East Midlands. 

Mar 22 University Sports Centre, 

Calverley Street, Leeds. 

For information and tickets contact John Riding 
on (0225) 868100. 


5 


Ray Tracing In 2D (1) 


David Lowndes Williams uses the power of the BBC to demonstrate ray 
tracing. 


INTRODUCTION 

Calculating the path that light takes when it 
passes through an optical system can be 
guite tricky. Light is refracted when it enters 
or leaves a piece of glass or any other 
transparent medium. It can be reflected by 
mirrors, or by glass; this is called total 
internal reflection, for instance it happens 
when you look at a goldfish through the 
waters surface, or when reflection occurs in 
the prisms of a periscope. 


Choose object 


: RB WEE EE 
Creating objects to be traced 


WHAT IT DOES 

This package allows you to enter a two 
dimensional scene consisting of straight 
sided glass blocks and mirrors, and the 
computer then traces rays through the scene. 
The editing functions are provided by Part 1, 
in this issue, and the actual ray tracing (that 
is the determination of the path that light 
takes through the scene) is performed by 
Part 2 in the next issue. Data is passed 
between the two programs in a file, wkfile, so 
a disc system is required. 


LIMITATIONS 

The maximum number of shapes is 5, but 
any more than this would give a jumbled 
appearance on the screen, so this is not 
really much of a limitation. The maximum 
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number of sides for each shape is 6, set by 
L% in PROCinit. The more sides the merrier 
- many interesting optical systems can 
successfully be modelled by this program - 
you could try the pentaprism in an SLR 
camera for example. Each program is too 
long to fit in the memory with PAGE set to 
&1900, because a 20K screen mode is used. 
PAGE must therefore be lowered to &1300; 
this will not affect the use of your disc 
system because only one file is open at any 
one time. 


ENTERING THE PROGRAM 
Type in the program and save it under the 
filename RAYed. You will be able to enter 
the program with PAGE set to &1900, if 
you don’t use a 20K screen mode. In order 
to run the program type: 

PAGE=&1300 

M%=0 : CHAIN"RAYed" 


USING THE PROGRAM 
On running the program you are presented 
with a screen with a border. Above the 
border is a list of words: Source, Guide, 
Object and Trace. These tell you which 
function is currently being performed. 
They are selected by pressing the function 
keys f0 to f3. File handling is selected by 
hitting f4. Additional information is 
displayed below the bottom border when 
necessary. 


If Source is selected you can edit the point 
from which all rays will radiate (if the 
appropriate display option is selected). The 
cursor keys move the point - Shift increases 
the speed the point moves. Pressing Return 
enables you to leave this editing option. 


The guide vector determines the spread of 
the light from the source. Pressing f1 lets you 
edit the start of the guide vector, the end 
opposite the arrow. Shift-f1 allows the other 
end of the guide vector to be edited and thus 
the direction changed. Editing is again 
performed with the cursor keys, and Return 
exits this option. 


Beebug March 1992 


Pressing f2 enters object editing. The 
numbers 1,2,3,4 and 5 appear at the bottom 
of the screen. If the number is printed on a 
black background then the corresponding 
object is undefined, in which case editing 
will commence from a standard position at 
the bottom right-hand corner of the screen. If 
the number is displayed on a red 
background then the object has been defined 
as a transparent medium, and if displayed as 
black on a white background then the object 
is defined as a mirror. 


To begin editing press the number 
corresponding to the object of your choice. 
Keys X and Z change the point on the object 
that you are editing, K adds a new point, 
Delete deletes a point (the minimum number 
is three) and Return ends object editing. 
After this you will be asked to enter if the 
object is glass or a mirror by pressing G or 
M. The scene is then re-drawn. The number 
of each object is displayed inside the object. 
This may sound complex, but it’s easy when 
you see the screen. 


f3 enters trace mode. This asks a few 
questions relating to the objects and to the 
light source. Pressing Return in answer to 
each question leaves the settings unaltered. 
After this the configuration is saved under 
the filename wkfile and the second program, 
called TRACER, is chained in. The program 
will fail at this point (giving a “not found” 
error), until Part 2 of the package has been 
typed in from the next issue. 


f4 saves the current configuration under the 
filename of your choice, and Shift-f4 loads 
the configuration data from the file of your 
choice. 


CONCLUSION 

This program enables you to edit shapes for 
ray tracing. You just set up the shapes, and 
the computer performs the tricky business of 
calculating the relevant mathematical 
processes of two line intersection, and 
reflection and refraction (using Snell’s law). 
In next month’s issue we go on to display the 
actual rays. 
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REM Program RAYed 

REM Version 1 

REM Author David Lowndes Williams 
REM BEEBUG March 1992 

REM Program subject to copyright 


ON ERROR GOTO 300 

MODE1 

PROCinit 

IF M$-TRUE PROCload("wkfile") 
PROCinitPage 

REPEAT 

Aa$-FNchoose (Aa%) : PROCwipeLine 

IF Aa%-1 PROCedVec (3) 

IF Aa%=2 AND B%=1 PRINTTAB(1, 31) "G 


IF Aa$-2 AND B%<>1 PRINTTAB(1,31)* 
start." ; :PROCedVec (1) 

IF Aa$=3 PROCeditObject 

IF Aat=4 PROCtrace:CHAIN"TRACER" 
IF Aa$-5 AND B%=1 PROCs1("L") 

IF Aa$-5 AND B%<>1 PROCs1("S") 
VDU26 : COLOUR3 : COLOUR128 
PROCTopLine: PROCwipeLine 
PROCinitScreen 

UNTIL FALSE 

END 


IF ERR=17 AND INKEY-1 THEN 340 
IF ERR=17 GOTO 140 

IF ERR=222 GOTO 140 

REPORT: PRINT" at line ";ERL 
*FX4,0 

END 


DEF PROCinit Page 
Aa$-0 :N$-2 
PROCinit Screen 
ENDPROC 


DEF PROCinitScreen 

GCOLO, 3:VDU26:COLOUR128:CLS 
PROCTopLine 
COLOUR128 :MOVE16 , 976 :DRAW1263, 976 
DRAW1263, 48 :DRAW16, 48 :DRAW16, 976 
PROCdrawVector (VSx, VSy, VVx, Wy) 
PLOT69, VPx, VPy 

FOR n$-0TO4 

IF sy%(0,n%)=0 GOTO 1210 

GCOLO, 1:MOVE sx%(1,n%) , sy$ (1, n$) 
xx%=0:yy=0 

FOR nn$-1TO sx%(0,n3) 
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170 DRAW sx% (NN$,n$) , sy$ (nn$, n$) | 1620 *Fx4,1 
1180 xx=xx%+sx% (nn%,n%) :yyt=yy%+sy% (nn 1630 *FX225,128 
$,n$) 1640 ENDPROC 
1190 NEXT nn$ 1650 : 
1200 DRAW sx%(1,n%),sy%(1,n%) 1660 DEF PROCstart 
210 IF sx%(0,n%)<>0 xx%=xx%/sx%(0,n%): 1670 ex%(0)=3:ey (0) =1 
yy%=yy3/sx%(0,n%) :GCOL0,2:MOVE xx%-16,yy 1680 ex(1)=800:ey% (1) =200 
$+16:VDUS, (49+n%) ,4 1690 ex%(2)=900:ey% (2) =200 
1220 NEXT n% 1700 ex%(3)=850:ey% (3) =300 
230 ENDPROC 1710 ENDPROC 
1240 : 1720 : 
1250 DEF PROCTopLine 1730 DEF PROCeditObject 
- 1260 COLOUR128:VDU31,2,0 1740 PROCwipeLine 
1270 COLOUR129:COLOUR3:PRINT;" Source " 1750 PRINTTAB(1,31) "Choose object :"; 
; :COLOUR128 : PRINTSPC2; :COLOUR129: PRINT; * 1760 FOR n$-0TO4 
Guide ";:COLOUR128:PRINTSPC2; :COLOUR129 1770 COLOUR3 :COLOUR128 : PRINTCHRS 32; 
:PRINT;" Object ";:COLOUR128:PRINTSPC2;: 1780 IF sy%(0,n%) =0 
COLOUR129:PRINT" Trace " 1790 IF sy%(0,n%)=1 COLOUR129 
1280 ENDPROC 1800 IF sy%(0,n%)=2 COLOUR131:COLOURO 
1290 : 1810 PRINTCHR$32;CHRS (49+n%) ;CHR$32; 
1300 DEF FNchoose(a%) 1820 NEXT 
1310 REPEAT 1830 a%=FNselect 
1320 OA$-a$:B$-0 1840 Parallel$-FALSE 
1330 g%=GET: IF INKEY-1 B$-1 1850 PROCwipeLine 
1340 a%=(g%-127) 1860 PRINTTAB(1,31) "Object" ;CHR$32 ;CHRS 
1350 UNTIL g%>127 AND g%<133 (48+a8) ; 
1360 PROCdispBar (a%) 1870 number%=a3-1 
1370 =a% 1880 FOR n$-OTOL$ 
1380 : 1890 ex%(n%) =sx% (n$, number) : ey% (n$) =sy 
1390 DEF PROCdispBar (A%) $ (n$, number$) 
1400 PROCTopLine:COLOUR131:COLOURO 1900 NEXT 
1410 IF A%=1PRINTTAB(2,0)" Source " 1910 IF ey%(0)=0 PROCstart 
1420 IF A%=2PRINTTAB(12,0)" Guide " 1920 GCOL3,3:N%=2 
1430 IF A%=3PRINTTAB(21,0)" Object * 1930 PROCdraw 
1440 IF A%=4PRINTTAB(31,0)" Trace " 1940 REPEAT 
1450 COLOUR128:COLOUR3 1950 ext%=FALSE 
1460 ENDPROC 1960 a%=FNedlin(N%) 
1470 : 1970 IF a%=999 a$=0:extS=TRUE 
1480 DEF PROCwipeLine 1980 N$-N$ra$ 
1490 COLOUR128:COLOUR3 1990 IF N%<1 N%=ex%(0) 
1500 PRINTTAB(0,31) ; STRINGS (39,CHR$32) ; 2000 IF N%>ex%(0) N%=1 
510 ENDPROC 2010 GCOLO,1:PROCdraw:GCOL3, 3 
1520 $ 2020 GCOLO, 0:PLOT69, ex% (N$) , ey% (N$) :GCO 
1530 DEF PROCinit 13,1 
1540 L%=6 2030 UNTIL ext’ 
1550 DIM ex$ (L$) :DIM ey$ (L$) 2040 PROCwipeLine:PRINTTAB(1,31) 8 (G) las 
1560 DIM sx% (L$,4) ,sy$ (L$,4) s or (M)irror, currenty:";:IF ey%(0)=1 P 
1570 VSx=100:VSy=600 RINT*Glass"; ELSE PRINT"Mirror"; 
1580 VVx=300:Wy=300 2050 REPEAT 
1590 VPx=150:VPy=850 2060 g%=GET 
1600 Index=1.5 2070 UNTIL g%=13 OR g%=ASC"M" OR g$sASC 
1610 Number$-10 "m" OR g$=ASC"G" OR g%=ASC"g" 
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2080 IF g$-ASC'G" OR g%=ASC"g" ey%(0)=1 
2090 IF g%=ASC"M" OR g%=ASC"m" ey%(0)=2 
00 FOR n$-OTOL$ 

2110 sx%(n%, number$) =ex% (n$) : sy% (n$, num 
ber) =ey% (nS) 


N 


2150 DEF FNedlin(N%) 

2160 n1%=N%-1:IF n1%=0 n1%=ex%(0) 
2170 n2%=N% ' 
2180 n3%=N%+1:IF n3%>ex% (0) n3%=1 

2190 G$-FNsetPoint (ex$ (n1$) ,ey$ (n1$) , ex 
%(n2%) , ey$ (n28) , ex% (n3%) , ey$ (n33) ) 

2200 ex% (n2%)=0X% :ey$ (n2%) =OY% 

2210 c%=0 

2220 IF GS=ASC"Z" OR G%=ASC"z" c=1 

2230 IF G%=ASC*X" OR G%=ASC"x" c%=-1 

2240 IF G%=ASC"K" PROCinsert 

2250 IF G%=127 PROCremove 

2260 IF G%=13 c%=999 

Er Ee 

2280 : 

2290 DEF FNset Point (x1%,y1%,x2%,y2%,x3% 
1y3%) 

2300 GCOL3,3 

2310 PROCcursor (x2%,y2%) 

2320 REPEAT 

2330 g%=GET 

2340 PROCtwo 

2350 PROCcursor (x2%, y2%) 

2360 x2%=x2%+FNhoris (g%) 

2370 y2%=y2%+FNvert (g%) 

2380 ex%(n2%) =x2%:ey% (n2%) =y2% 

2390 PROCtwo:PROCcursor (x2%,y2%) 

2400 UNTIL g$-ASC'Z* OR g%=ASC"z" OR g% 
=ASC"X" OR g%=ASC"x" OR g%=127 OR g%=ASC 
"K" OR g$-128 OR g$-129 OR g$-130 OR g%= 
13 

2410 PROCcursor (x2%,y2%) 

2420 OX%=x2%:0Y$=y2% 

2430 =g% 

2440 : 

2450 DEF FNvert (a$) 

2460 b%=0 

2470 IF a%=138 b%=-4 

2480 IF a$-139 b%=4 

2490 IF INKEY-1 b%=b%*3 

2500 =b% 

25101: 

2520 DEF FNhoris(a$) 

2530 be=0 


2540 IF at=136 b%=-4 

2550 IF a=137 bt=4 

2560 IF INKEY-1 b%=b%*3 

2570 =b% 

2580 : 

2590 DEF PROCcursor (x%,y%) 
2600 MOVE x%-32,y%:DRAW x%+32,y% 
2610 MOVE x%,y%-32:DRAW x%,y%+32 
2620 ENDPROC 

2630 : 

2640 DEF PROCdraw 

2650 GCOL0,3 

2660 MOVE ex$(1),ey%(1) 

2670 FOR n$-2TOex$ (0) 

2680 DRAW ex%(n%) ,ey%(n%) 

2690 NEXT nê 

2700 DRAW ex$(1),ey$ (1) 

2710 ENDPROC 

2720 : 

2730 DEF PROCinsert 

2740 SOUND1,-8,53,1 

2750 IF ex%(0)=L% GCOL3,3:PLOT69, ex% (N% 
) ,ey% (N$) : ENDPROC 

2760 ixl=ex%(n1%) :iyl=ey$(n1%) 
2770 PROCtwo 

2780 ix2-ex$ (n2%) :iy2=ey$(n2%) 
2790 xm=0.5*(ix1+ix2) :ym=0.5* (iyl+iy2) 
2800 FOR n=ex%(0) TO n2% STEP-1 
2810 ex%(n+1) =ex% (n) 

2820 ey%(n+1) =ey% (n) 

2830 NEXT 

2840 ex%(n2%) =xm: ey% (n2%) =ym 
2850 N%=N%+1 

2860 ex%(0)=exd(0)+1 

2870 ENDPROC 

2880 : 

2890 DEF PROCremove 

2900 SOUND1, -8,200,1 

2910 PROCtwo 

2920 IF ex%(0)=3 ENDPROC 

2930 ex%(0)=ex%(0)-1 

2940 FOR n=n2% TO ex$ (0) 

2950 ex%(n)=ex%(n+1) 

2960 ey$ (n)-ey$ (nt1) 

2970 NEXT 

2980 ENDPROC 

2990 : 

3000 DEF PROCtwo 

3010 MOVE ex%(n1%) , ey (n1%) 
3020 DRAW ex$ (n2%) , ey$ (n28) 
3030 DRAW ex%(n3%) , ey% (n38) 
3040 ENDPROC 
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DEF PROCdrawVector (a,b,c,d) 
LOCAL p,q 

p=.9:q=.025 

MOVEa,b:DRAW a+c,b+d 

MOVE a+c,b+d:DRAW a+p*c-q*d, b+p*d+ 


MOVE a+c,b+d:DRAW a+p*c+q*d, b+p*d- 
ENDPROC 

DEF FNvectorLength(a,b,s) 

LOCAL len 

len=SQR (a*a+b*b) 


=s/len 


DEF PROCedVec (HS) 


% 


| larer 


3540 PRINT'Enter new value:";:INPUT val 


3550 IF val<>0 Number%=val% 

3560 IF Parallel$-TRUE PRINT''"Parallel 
; ELSE PRINT'' "Radiating"; 

3570 PRINTCHR$32; "light source." 

3580 PRINT*Radiate or Parallel (R/P)?"; 


:9$=GETS 


E 


3590 IF g$="R" OR g$="r" Parallel$=FALS 


3600 IF g$="P" OR g$="p" Parallel$-TRUE 
3610 PROCsave("wkfile") 

3620 VDU26:COLOUR128:CLS 

3630 ENDPROC 

3640 : 


3190 3650 DEF PROCsave (files) 

3200 GCOLO,3 3660 x=OPENOUT (files) 

3210 PROCdrawVector (VSx, VSy , VVx, Wy) 3670 PRINT#x, Index, Number’, Parallel% 
3220 PLOT69, VPx, VPy:GCOL3, 3 3680 PRINT#x,VSx,VSy, VVx, VWy, VPx, VPy 
3230 REPEAT 3690 PRINT#x, L% 

3240 s%=GET 3700 FOR n$-0TO4 

3250 PROCdrawVector (VSx, VSy, VVx, Wy) 3710 FOR nn’=0TOL% 

3260 PLOT69,VPx, VPy 3720 PRINT#x, sx% (nn$, n$) , sy$ (nn$,n$) 
3270 vh=FNhoris(s%) 3730 NEXT:NEXT 

3280 cv=FNvert (s%) 3740 CLOSE#x 

3290 IF H%=1 VSx=VSx+vh:VSy=VSy+cv 3750 ENDPROC 

3300 IF H$-2 VVx=VVx+vh:Wy=Wy+cv 3760 : 

3310 IF H$-3 VPx=VPx+vh:VPy=VPy+cv 3770 DEF PROCload (files) 

3320 PROCdrawVector (VSx, VSy, VVx, Wy) 3780 y=OPENIN(files) 

3330 PLOT69,VPx, VPy 3790 INPUT#y, Index, Number$, Parallel% 
3340 UNTIL s%=13 3800 INPUT#y,VSx, VSy, VVx, VWy, VPx, VPy 
3350 ENDPROC 3810 INPUT#y,L$ 

3360 : 3820 FOR n$-0TO4 

3370 DEF FNselect 3830 FOR nn%=0TOL% 

3380 LOCAL g% 3840 INPUT#Hy,sx%(nn%,n%) , sy$ (nn$, n$) 
3390 REPEAT 3850 NEXT:NEXT 

3400 g%=GET 3860 CLOSE#y 

3410 g%=g%-48 3870 M$-TRUE 

3420 UNTIL g%>0 AND g%<5 3880 ENDPROC 

3430 =g% 3890 : 

3440 : 3900 DEF PROCs1 (d$) 

3450 DEF PROCtrace 3910 VDU28,4,20,35,5:COLOUR129:CLS 

3460 REM Enter index, parralel, number 3920 *. 

3470 VDU28,4,20,35,5:COLOUR129:CLS 3930 IF d$="L" PRINT"Load data with fil 
3480 PRINTSPC5*Ray tracing." ename:" ELSE PRINT"Save data under filen 
SASIE UU NHS NS Ol EO) ame:" 

3500 PRINT*Refractive index: "; Index 3940 INPUT £$ 

3510 PRINT"Enter new value:";:INPUT val 3950 IF f$<>"" AND d$="L" PROCload(f£$) 
3520 IF val<>0 Index=val 3960 IF £$<>"" AND dS="S" PROCsave (f$) 
3530 PRINT''"Number of guided rays:";Nu 3970 ENDPROC 
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Public Domain Software 


Alan Blundell continues his look at the growing BBC Public Domain 
scene. 


TANSTAAFL 

‘There ain’t no such thing as a free lunch’ 
(or TANSTAAFL as an acronym) is a 
phrase which any avid reader of Robert 
Heinlein’s novels will be familiar with. 
Put another way, you don’t get 
something for nothing - so how can 
public domain software be any good? 


This question arises quite often, so I 
thought it would be a good idea to 
consider it in this column. A good place 
to start may be with a similar question - 
if the software is any good, why is it not 
being sold commercially? One answer is 
that the software industry for the Beeb 
has already seen better days and most 
companies have now moved on to the 
Arc or to other computers which have 
growing and more active markets for 
their products. 


I recently received an excellent 
adventure game to look at, ‘Village of 
Secrets’, which the author (Jonathan 
Temple) has placed in the public domain. 
If the timing had been right (i.e. a few 
years ago), I do not doubt this would 
have been taken up by a software house 
for commercial sale: Peter Killworth (of 
Acornsoft adventure fame) apparently 
thought it ‘well worth publishing’. 


So, one answer is that the commercial 
opportunities simply are not there 
anymore. This hopefully will be a good 
thing for Beeb users in the long run, as I 
hope to see an increasing number of ex- 
commercial products becoming PD or 
shareware. One early example of this, 
‘Plague Planet’ from Philip Hawthorne 
of ALPS software, has already been 
mentioned in this column. Another 
answer is that software is not suitable for 
commercial sale. A good example of this 
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could be the VIEW/VIEWSTORE/ ASCII 
national STD code datafiles, which many 
people nevertheless find very useful. 


The other answer concerns the software 
author’s point of view: what do they get 
out of placing their software in the 
public domain? The answer to that is 
probably different for each author, but 
even if you don’t accept altruism, there 
are always possible motives in becoming 
well known to a growing PD audience, 
showing off your programming skills or 
the simple desire to share with others. 


Not all PD software is of high quality, but 
from the comments which I receive, many 
people are pleased with what they have 
seen and look forward to seeing more. 


TELESOFTWARE 

On a different subject, I promised last 
issue to mention telesoftware. My reason 
for this is that quite a lot of people seem 
to think that the software broadcast by 
the BBC some time ago now was public 
domain, simply by virtue of having been 
broadcast so that anyone could obtain a 
free copy. This is actually a false 
impression, as unless the software 
included a statement that it could be 
freely distributed (and some did), it 
remains copyright to the original author. 
One or two of these have given 
permission for their software to be 
distributed as public domain since the 
demise of the telesoftware service (such 
as Allan Kelly, who wrote several utility 
packages, or E.M. Jolliffe, who produced 
software to check the life of NiCad 
batteries). In every other case, though, 
the software is NOT PD, and should not 
be submitted to PD libraries (it gives 
them a lot of work to do) or distributed 
by bulletin board. 
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Public Domain Software 


CLIP ART & GRAPHICS 

I originally intended to look at PD 
utilities this issue, but given the amount 
of space needed to include the list of PD 
libraries which I promised in my first 
column, there simply isn’t enough room 
to do justice to the subject this month. 
Utilities will receive attention in the next 
issue, but for now I will take a brief look 
at the general area of graphics - clip art in 
particular. 


CLIP ART 

All users of DTP on the BBC, whether 
using AMX Stop Press, Wapping Editor 
or another package, will be aware that 
clip art can make all the difference to 
home-produced work. Yet, apart from the 
public domain, little is generally 
available. The good news is that some 
excellent clip art is available as PD. One 
‘author’ (if that is the right term), Oliver 
Debus, deserves particular attention for 
the quality of his work for Stop 
Press /Pagemaker and, latterly, Wapping 
Editor; it contains some excellent 
material. Clip art is also available under 
the name ‘Dover Art’ and there is even 
some clip art converted from the Atari 
ST, via the use of an Archimedes. 


There are also some useful DTP-related 
utilities available in the public domain. 
Andrew Pepperell has produced a useful 
utility for converting clip art saved in 
Wapping Editor format into AMX Stop 
Press format and also to perform the 
reverse conversion. Other handy 
machine-code utilities written by 
Andrew include stand-alone viewers for 
clip art in either of these file formats, 
which could be used as a means of 
converting to other file formats or to 
simple ‘saved screen’ files. They can also, 
of course, be used to enjoy the clip art 
even if you don’t own a DTP package. 


Other types of graphics available include 


digitised photographs, scanned images, 
Mandelbrot and other fractal algorithms 
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and screens, a letterhead designer and a 
number of screen fonts for the Master 
Series. 


DEMOS 

A graphics demo is a functionally useless 
program, so (you may ask), what use are 
they? Programmers write demos for 
various reasons; to show off their 
programming skills, to demonstrate 
particular programming techniques or 
just for the satisfaction of pushing their 
micro to its limits. Some demos are just 
meant to be nice to look at, whilst others 
are more helpful as inspiration if you are 
a programmer. Lars Osterballe has 
produced a series of demos which show 
off programming techniques I have not 
seen elsewhere, such as overscan display 
modes - before seeing these demos, I had 
only heard of overscan on the Arc! 
Andrew Pepperell has produced the first 
few of a series of demos which use 
parallax effects, fancy scrolling fonts and 
other effects in impressive displays. 


So there you have it - a brief look at what 
is available in this area of software. The 
next column will concentrate more on 
looking at software, but in the meantime, 
feel free to send your comments or views 
to me at the usual BEEBUG address. 


PUBLIC DOMAIN LIBRARIES 

Finally for this month, as promised in my 
first column, I have prepared a summary 
of the known public domain software 
libraries for the BBC Micro, Master and 
Electron. A year ago, the list would have 
been quite a bit longer, but having 
written to all known libraries, it is 
apparent that quite a few have ceased to 
operate. I wrote to every library which I 
knew of or had seen mentioned in other 
magazines in early December, asking for 
details of their catalogue, etc. I asked for 
a fairly quick response so that I could 
prepare the summary over Christmas, 
but in fact have only received 6 replies at 
the time of writing. One of those was just 
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to say that Red Shift PD has ceased to 
operate due to study pressures on its 
operator, Rafael Jay. 


The known libraries are therefore: 


GLM PD 

Gareth Moore 

2 Pierrefondes Avenue, 
Farnborough, 
Hampshire, 

GU14 8NF 


GLM PD has a quite extensive range, 
including some I had not seen before. 
Costs are £1.00 per disc (5.25” only at 
present), mostly based on DFS 80T 
single-sided format, plus a postage 
charge ranging from 50p for 1 disc to 
£1.80 for 8+ discs. 


Mad Rabbit PD 
Joel Rowbottom 

22 Oakwood Grove, 
Norbury, Wakefield, 
W. Yorkshire, 

WF4 5JE 


Mad Rabbit has a similarly extensive 
range, plus sections for the IBM PC and 
Archimedes/A3000, and also markets 
non-PD, full price BBS/Viewdata 
software of their own design. Again, the 
catalogue includes some software I had 
not seen before. Costs are £1.50 for 5.25” 
discs/£2.00 for 3.5” discs. Both are fully 
inclusive of postage. 


Purple Domain PD 
Andy Nibbs 

2 Seaview, 
Hoylake, 

L47 2DD 


Purple Domain has a shorter catalogue, 
which is mainly an additional service 
alongside MasterDisc Magazine, which 
Andy publishes; this is not public 
domain although it is reasonably priced. 
Costs vary from disc to disc, apparently 
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Public Domain Software 


based on £1.00 for the average 80 track 
disc. Postage is extra, at £1.00 


8-bit Software 
Duncan Webster 
7 Ashdale, 
Thringstone, 
Leicestershire, 
LE6 4LW 


8-bit Software is not really a PD library. It 
is actually a club whose members receive 
a mixture of public domain and restricted 
software. Duncan is looking for members 
who are willing to make their own 
contributions to the club; contributions 
are circulated to other members for 
review and suggestions. The idea is in 
some respects similar to Ron Marshall’s 
excellent SOLINET user group, and is 
free of charge. 


Peter Davy 

68 Headlands Road, 
OSSETT, 

W. Yorkshire, 

WES 8HX 


Peter specialises in writing software for 
adult basic education in literacy and 
numeracy. The software is not actually 
public domain, as he likes to keep in 
touch with users of his software, but it is 
free. He has a catalogue totalling 15 40- 
track DFS disc sides which he is willing 
to supply at a cost of 50p per disc, plus 
75p per order for postage. 


BBC PD 

Alan Blundell 

18 Carlton Close, 
Blackrod, 
BOLTON, BL6 5DL 


Advertised elsewhere in this issue: I am 
reluctant to give a summary due to the 
risk of personal bias! Costs are £1.50 per 
5.25” disc or £1.75 per 3.5” disc, fully 
inclusive and reducing progressively for 
larger orders. 
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Zeus 


Stephen Sexton brings an Amiga classic to the BBC. 


Zeus is an opportunity for slamming 
your head against a wall. It’s not so 
much a game as a cure for a hangover. 


The original Zeus is in the Amiga public 
domain, and this version captures the 
gameplay and irritation of the original, 
whilst adding several new features. 

Zeus is played by moving blocks of the 
same type together; it’s brains, not speed 
that you need here. When two or more 
similar blocks connect they disappear. 
Any unsupported blocks fall - gravity 
exists. Repton fans will understand the 
avalanche characteristics. 


l 
Bri 
l 

I 


So, if a block is moved from the base of a 
stack, or the base of a stack disappears, 
the rest of the stack will fall vertically, 
and if possible, will disappear, resulting 
in further falling and disappearing, until 
no further falling and disappearing can 
occur. The ultimate goal is to clear the 
level of blocks. 
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The cursor keys move the block cursor (a 
highlighted square) to select a block to 
move. The Z and X keys move the block 
at the cursor left or right, if there is an 
empty space to move the block into. 


Should a level become impossible, either 
by the existence of only one block of a 
type, or by blocks becoming inaccessible, 
pressing Q will lose a life and restart the 
level. You only get two lives for each 
game - you can only make a mistake 
once! You'll make a different mistake the 
next time! Losing a life, however, loses 
you a wodge of points, more so in the 
higher levels, so it is not possible to get 
ultra-high scores by losing a life at the 
highest level, then clearing the level! 


Type in and save the first two listings, 
ZEUS and ZEUS2. The first is a setup 
program that then chains the second. 


Zeus doesn’t come with any levels built 
in - a set of levels in the file DEFAULT is 
loaded in from disc at the start of the 
program. These levels are generated by 
external programs or are the result of a 
re-save from within the program. To 
generate a set of default levels, the 
program ADATA must be entered and 
run. When run, this outputs a highscore 
table and levels to the filename entered 
at the prompt. This file should be called 
DEFAULT. 


Most of the levels in ADATA are from the 
original Zeus, and get tough beyond the 
first couple of screens. The original Zeus 
has 40 screens, but no editor or level 
loading facility. The Beeb’s memory 
limitation is the main problem in the 
game - hence the multiload and levels 
load/save. 
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Zeus 


Zeus is run by entering CHAIN “ZEUS” 
which sets up envelopes and graphics 
characters, then sets PAGE=&1300 and 
runs ZEUS2. On the Master, PAGE can be 
left alone. 


IH WU P 
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A not-quite-so-easy level! 


THE ZEUS OPENING SCREEN 
When the programs have loaded, you 
will be presented with short instructions 
and several options: 


Load levels. This loads in a new set of 
levels, the defaults, or a custom set. The 
highscores for that set of screens are 
loaded, too (not much point having a 
highscore table if you can’t save it...) 


Save levels. This saves the current set of 
levels, along with the highscores. If the 
current levels are saved as DEFAULT, 
they will be loaded in initially when the 
game is next loaded. 


Edit levels. This option will be added in 
next month’s issue. 


Any other key starts the game. Should 
the game slow, just wait for the block 
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cursor to reappear before attempting 
further action. 


A HISTORY LESSON 
For those who are interested, ZEUS are a 
demo/coding team, based in 


Switzerland, doing their funky stuff on 
the Amiga. They’ve done Zeus (The 
Game), several demos and megademos, 
and have a new game forthcoming. Most 
of their stuff, including Zeus (The Game) 
is available in the Amiga PD. 


The original code for this version was 
done by me on the Amiga with the BBC 
Emulator - in pure BBC BASIC. It runs 
good and fast on the Amiga (7x BBC 
speed!), but slows a little on the BBC. 
Should any vigilant programmer re-code 
the scrub algorithm (currently the 
slowest part of the program) in 6502, I 
would love to see the result. I’m too busy 
learning 68000, C and Pascal to do 6502! 


bbcZEUs. .. 


bbcZEUS - an alternative to a slap with 
a wet fish... 


Remove identical blocks by bringing them 
together - when 2 or more connect face 
on, they vanish 


Gravity applies - 


blocks fall <!!) 


Control: Z 7 X shoves block under cursor 
left ¢ right. Cursor keys move the block 
cursor ‘highlighted square). 


bbcZEUS was inspired by ZEUS (The GAME), 
an Amiga PD Game - get it. Thanks to 
SLEDGE of ZEUS for the level data... 


Press L (Load levels), E (Edit levels) 
S (Save levels), or anything else to 
play.. 


The Zeus opening screen 


AS IF ALL THAT WASN’T 
ENOUGH.... 

Next month we'll bring you another set 
of levels and will be adding the level 
editing routine. This will allow you to 
design your own screens to baffle your 
friends (and probably yourself!). 
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Zeus 


Zeus 


10 REM Program ZEUS ar a 
20 REM Version Al.1 
30 REM Author S. "Confused?" Sexton 
40 REM BEEBUG March 1992 
50 REM Program Subject to Copyright 
60 : 
100 VDU23,232,0,0,0,0,60, 60, 60, 60 
110 VDU23,233, 60, 60, 60, 60,0,0,0,0 
120 VDU23,234,0,0,0,0,0,0,24, 24 
130 VDU23,235,24,24,0,0,0,0,0,0 
140 VDU23,236,0,0,126,126, 66, 66, 66, 66 
150 VDU23, 237, 66, 66, 66, 66, 126,126,0,0 
160 VDU23,238, 247, 247,247, 0,127, 127,12 
7,0 
170 VDU23,239, 247, 247,247, 0,121, 127,12 
7,0 
180 VDU23,240,0,0,0,0,0,0,0,0 
190 VDU23,241,0,0,0,0,0,0,0,0 
200 VDU23,242,0,0,126,126, 66, 66, 90,90 
210 VDU23,243, 90, 90, 66, 66, 126,126,0,0 
220 VDU23,244,0,0,126,126,102,102,66, 6 
6 
230 VDU23, 245, 66, 66, 102,102,126,126,0, 
0 
240 VDU23,246,0,0,126,126,122,122,114, 
114 
250 VDU23, 247, 98, 98, 66, 66, 126,126,0,0 
260 VDU23,248,0,0,126,126, 106,106, 66,6 
6 
270 VDU23, 249,106,106, 66, 66,126,126,0, 
0 
280 VDU23,250,0,0,126,126, 86,86, 106,10 
6 
290 VDU23,251, 86, 86, 106,106,126,126,0, 
0 
300 VDU23,252,0,0,126,126,126,126,102, 
102 
310 VDU23,253, 102,102, 126, 126,126, 126, 
0,0 
320 VDU23,254,0,0,126,126, 94, 94, 110,11 
0 
330 VDU23,255, 18, 118,122, 122,126,126, 
0,0 
340 ENVELOPE 1,1,0,0,0,0,0,0,126,-1,0, 
-1,126,0 
350 PAGE=&1300 :CHAIN"ZEUS2" 


10 REM Program ZEUS2 
E REM Version B1.7 
30 REM Author S. Sexton 
40 REM BEEBUG March 1992 
50 REM Program subject to copyright 
60 : 
100 ON ERROR GOTO 2900 
110 DIM playfield$ (12, 12,9) , type$ (7,9) 
,coldat$ (9), hi$ (4) , his (4) 
120 PROCinit: PROCscratch 
130 MODE? : VDU23;8202;0;0;0; 
140 PROCfile("default", TRUE) 
150 REPEAT REPEAT 
160 MODE7 : VDU23; 8202;0;0;0; 
170 PROCintro:PROCinstruct 
180 IF G$-76 OR G$-108 CLS: INPUTTAB(7, 
10)"Enter Filename: "£$:PROCfile(£$, TRUE) 
190 IF G$-83 OR G$-115 CLS: INPUTTAB(7, 
10) "Enter Filename: "£$:PROCfile(£$, FALSE 
) 
200 MODES: VDU19, 3, 6;0;23;8202;0;0;0; 
210 REM THIS LINE USED NEXT MONTH 
220 UNTIL INSTR("L1SsEe", CHR$ (G$) ) =0 
230 lives=2:level=1:score=0:REPEAT 
240 PROCcopy (level, 0) :PROCShow (0) : PROC 
score 
250 GX$-1:GY$-1:retry$-FALSE 
260 PROCplaylevel 
270 IF NOT retry$ level=level+1:IF nbl 
ocks%=0 AND level<9 PROCgnahaa: PROCwait ( 
30) :score=score+ (level-1) *200:PROCscore: 
IF GET 
280 IF nblocks%>0 lives=lives-1:score= 
score-level*100:PROCScore 
290 UNTIL lives-0 OR level-9 
300 IF level-9 PROCend 
310 MODE7:VDU23;8202;0;0;0; :PROChiscor 
es 
320 PROCtable:UNTIL youdropdead 
S300: 
1000 DEFPROCinit 
1010 RESTORE 2880:FOR A$-1 TO 9:READ co 
1dat$ (A$) :NEXT 
1020 youdropdead-FALSE:*FX4,1 
1030 ENDPROC 
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Zeus 


1040 : 

1050 DEFPROCtest 

1060 lives=2:level=9:score=0:REPEAT 
1070 PROCcopy (level, 0) :PROCShow (0) 

1080 COLOUR2 : PRINTTAB (15,12) "Play"TAB(1 
5,13) "Test" 

1090 GX$-1:GY$-1:retry$-FALSE 

1100 PROCplaylevel:IF retry% lives=live 
kd L 

1110 UNTIL lives=0 OR nblocks%=0 

1120 CLS:PROCshow(9) : COLOUR3 : PRINTTAB (1 
512) edit. 

1130 ENDPROC 

1140 : 

1150 DEFPROCplaylevel 

1160 GxX%=1:GY%=1:retry%=FALSE 

1170 REPEAT REPEAT 

1180 PROCmove 

1190 UNTIL G%=90 OR G$-88 OR retry% 
1200 dropno$-1:REPEAT drop=FALSE: scrub= 
FALSE 

1210 IF NOT retry% PROCdrop (GX%$-2 ,GX%+2 


) 
1220 IF NOT retry% IF drop PROCscrub(GX 
-2,GX%+2,1,12) ELSE PROCscrub(GX%-1, GX% 
1,GY%,GY%) 

1230 UNTIL scrub=FALSE AND drop=FALSE 
1240 UNTIL nblocks%=0 OR retry% 

1250 ENDPROC 

1260 : 

1270 DEFPROCinstruct :CLS 

1280 FOR A$-1 TO 2:PRINTTAB(13,A%) ;CHRS 
141;CHR$131; "bbcZEUS. . .":NEXT 

1290 PRINT'"bbcZEUS - an alternative to 

a slap with a wet fish..."''"Remove ide 
ntical blocks by bringing themtogether - 

when 2 or more connect face on, they v 
anish." 

1300 PRINT' "Gravity applies - blocks fa 
ll (!!)"''"Control: Z / X shoves block u 
nder cursorleft / right. Cursor keys mov 
e the blockcursor (highlighted square) ." 

1310 PRINT'"bbcZEUS was inspired by ZEU 
S (The GAME),an Amiga PD Game - get it. 
Thanks to SLEDGE of ZEUS for the leve 
1 data..."''"Press L (Load levels), E (E 
dit levels) S (Save levels), or anythin 


oe 


r3 


Beebug March 1992 


Em 


g else to play..." 
1320 G%=GET: ENDPROC 
133053 


1340 DEFPROCgnahaa : COLOUR3 

1350 PRINTTAB(3,10);level-1;" finished" 
;TAB(3,12)"Attempt ";level;"." 

1360 SOUND 1,1,47,3:SOUND 1,1,53,3:PROC 
wait (40) :SOUND1,1,67,3:SOUND &201,1,53,3 
:SOUND &202,1,81,3:SOUND &203,1,101,3 

1370 ENDPROC 

1380 : 

1390 DEFPROChiscores 

1400 IF score<hi%(4) ENDPROC 

1410 A$--1:REPEAT AS=A%+1 

1420 UNTIL score>=hi% (A$) 

1430 FOR 0%-3 TO A% STEP -1:hi$(Q%+1)=h 
i$ (08) :hi$ (0$41) -hi$ (0%) NEXT 

1440 PRINTTAB(9,8); "You're in the top 5 
IM 

1450 INPUTTAB(12,11) "Thy Name? "hi$ (A$) 

1460 hi$ (A$) =score:ENDPROC 

1470 ENDPROC 

1480 : 

1490 DEFPROCscore:IF score<0 score=0 

1500 COLOUR3 : PRINTTAB (6,28) ;score:ENDPR 
oc 

1510 : 

1520 DEFPROCend:COLOUR3 

1530 PRINTTAB(3,10);"All Levels"; TAB(4, 
12) ; "Cleared!" 

1540 SOUND 1,1,89,10:SOUND 1,1,101,10:S 
OUND 1,1,109,5:SOUND 1,1,117,10:SOUND &1 
01,1,89,10:SOUND &102,1, 137,10 

1550 IF GET:ENDPROC 

1560 : 

1570 DEFPROCtable:CLS 

1580 FOR A$-2 TO 3:PRINTTAB(11,A%) ;CHRS$ 
131;CHR$141; "bbcZEUS 5 Best" :NEXT 

1590 FOR A$-0 TO 4:PRINTTAB( (40-LEN(hi$ 
(AB) )) /2,A*3+6) ;hi$ (A$) ; TAB( (40-LEN (STR 
$(hit(A%) ))) /2,A%*3+7) ;hi$ (A$) :NEXT 

1600 IF GET:ENDPROC 

1610 : 

1620 DEFPROCfill1 

1630 FOR L$-1 TO 8:FOR H$-1 TO 12:FOR V 
$-1 TO 12 


continued on page 53 
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BEEBUG Education 


By Mark Sealey 


Auntie's Gift Shop 


Fernleaf Educational 
Software Ltd 

31 Old Road West, 
Gravesend, 

Kent DA11 OLH. 
£17.95 ex. VAT 


This month’s column looks at a program 
that has actually been around for over a 
year and yet which still deserves the 
attention of Beebug Education, even though 
it has escaped our notice until now. 


Auntie's Gift Shop is an interesting, very 
well written and easy to use program. It 
aims to exercise the faculties of younger 
children to assess and then act on a variety 
of data in order to achieve a specific result. 


Perhaps it is easiest to outline the 
‘scenario’. 


Your aunt has died and left you one of six 
shops in her will. You can choose one of 
the shops for yourself and should aim to 
make a financial success of it. They are 
simple retail shops, not chains, selling 
clothing, food, D.I.Y. etc. 


You have some say in the variables that 
determine the outcome as well. The object 
of the simulation is to use the small 
amount of money that you have been left 
in order to survive commercially. 


These variables are: your own character 
and temperament (are you a loner - or 
gregarious?), where the enterprise is to be 
sited (busy high street, the seaside etc.) 
and what your interests are. 


There are other factors to be considered: 
what ‘consumer research’ (as pre- 
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determined by the program) would suggest 
is the likelihood of each type of shop’s 
success in each case, whether the area is 
quiet or busy in character - and hence how 
many customers are likely to be available. 


There are other variables; some of these 
can be chosen by the computer. Others - 
such as how you choose to advertise your 
shop, where and how it is fitted out and 
management of other costs - are selectable 
within sensible parameters. 


Auntie's Gift Shop can be compared with 
other ‘managing-the-economy’ and 
'making-the-most-money-on-the- 
promenade’ type programs, yet this is 
different in one important respect. 


Like these, there are several factors 
competing for your attention and financial 
resources which have to be juggled in the 
best way you can. In common with more 
complex simulations of the (older) ‘Mary 
Rose’ type, pupils are largely in control of 
the microworld and must live with the 
implications of their own choices and 
actions. 


Yet where this is different is in being 
specifically an exercise in matching data to 
outcome. Younger children can find it very 
hard to associate cause with effect. In this 
program, they are required to live with the 
consequences of their actions. 


That is to say that if they described 
themselves as having an outgoing 
personality who thrives best in company, 
likes plenty to do all day and yet then 
chooses to try and run a bookshop in a 
quiet location (presumably with few 
callers-in), the quite fundamental 
incompatibility would count against them. 
They would accrue fewer points than if 
they had opted for the arguably more 
extrovert boutique in a busy high street! 
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Similar matching reguirements apply to 
what type of shop you choose in the first 
place in relation to your interests - in pets, 
camping and outdoor activities or 
groceries etc. 


The idea is that children will, through 
repeated use of the program, be introduced 
to exercising just the right amount of 
discrimination for decisions taken at one 
juncture to be appropriate for future 
events. 


It is important to realise at this point that 
no preference is shown within the 
structure of the program for one type of 
shop, location or set of personal traits over 
another. Anything will work - provided 
you are consistent. It really is a case of 
matching, sifting and using the data made 
available by the program in the best way 
for the circumstances. 


For example, data is available at one point 
on how many people in a survey express a 
preference for one type of shop over 
another. Clearly, hard lesson though it is if 
you’re a youngster interested in pets, if the 
customers in a particular area are shown 
not to be impressed with the prospect, you 
would be very foolish to go ahead with 
setting up a pet shop there. 


Auntie's Gift Shop takes place in six ‘acts’. 
The first sets the scene, the second chooses 
your character (or allows the computer to 
choose it). The third allows you to specify 
your interests (which will be a particularly 
valuable part of the exercise if the 
application is being tackled by a group, 
rather than by a sole player) as they will 
later relate to the success or failure of the 
shop. 


The fourth and fifth ‘acts’ cover choosing 
and setting up the shop itself and the last 
act gives feedback on how well you have 
done. Significantly, where inappropriate 
choices for your temperament and/or 
interests might have been made this is 
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pointed out to you in meaningful 
language. 


The scope of the package, however, is large 
enough for the pupils not to aim 
exclusively at “the right answer” or “what 
the computer wants” the next time they 
work on it. 


ACT 4: CHOOSE YOUR SHOP. 
On the Act 4 Menu use 

D. Data Bank for Act 4. 

H. Help with Act 4. 

W. Word Bank. 
before choosing your shop. 
Use the grids to note the information from the 
Data Bank. 
~ Location ME Shop 2|Shop 3|Shop alSnop 5|Shop 6] 
| Sea or Town | aa | 
Lor Country 


ET eet A Al ies 


Quiet or Busy 


The Council Survey tells you the type of shop 
people want and do not want in a particular area. 


Council Shop | 
Survey 1 


Shop | Shop | Shop | Shop | 
f L a La 
100 people | | 
| want 

| 75 people 
want 

25 people 
want 

Shop not 
wanted 


When choosing the area and type of shop remember 
what you said about yourself in Acts 2 and 3, 


Your chosen area: 
Quiet or busy: 
Shop number: 


Type of Shop: 


A page from the accompanying diary 


The simulation proceeds largely in a mode 
7 text environment, though at times when 
(quite passable) graphics are used to 
enhance the sense of involvement - e.g. in 
representing the location for the shops 
(seaside, high street etc) - mode 2 is used. 


The entry of your data (usually one letter 
options from effectively coloured menus) 
is usually confirmed by pressing Return 
and well error-trapped. There is usually 
the option to restart a section, to get help 
and to review what has been entered. This 
is all to the good and makes use simple 
and straightforward. 

continued on page 48 


19 


Disc Spooler Utility 


Ever wished that your printer output could be redirected straight into a 
file on disc or tape? Derek Floyd has the answer with this compact and 
versatile machine code utility, first published in BEEBUG Vol. 7 No. 1. 


There are many programs which direct 
their output towards the printer or 
screen, but not to disc. In most situations 
this is all that is required. However, I 
have found several situations when I 
would have liked to divert the output 
from the printer, and send it to a disc file 
instead. The utility presented here will 
enable you to do just that. 


DATABASES AND SPREADSHEETS 
Databases and spreadsheets serve as a 
perfect example of this. There are always 
provisions to send output to a printer but 
they allow comparatively little control 
over the format of the output. The output 
can now be spooled to disc, and can then 
be loaded back into a word processor or 
text editor, and altered or even 
incorporated into another document. 


ALTERING AND RELOCATING 
MACHINE CODE 

Another example can be found in the use 
of a disassembler. Altering and relocating 
a machine code program is simple 
enough providing that you have the 
source code (the original assembly 
language program). If you no longer have 
the source code, the machine code will 
need to be disassembled, typed in again, 
altered, and finally re-assembled. The 
majority of disassemblers allow 
disassembled code to be displayed on the 
screen or sent to the printer, but usually 
there is no provision to send the output 
to a file. Diverting the printer output to a 
file will save having to type in all the 
assembly language instructions again. 


DIVERTING THE PRINTER OUTPUT 
All the ingredients to redirect the printer 
output are available in the BBC's 
Operating System. Firstly, there is an FX 
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call to direct the printer output in one of 
four directions. 


*FX 5,0 Nowhere, a useful dump during 
testing. 

*FX 5,1 The parallel printer driver, the 
default. 


*FX 5,2 The serial printer driver. 
*FX 5,3 A user defined printer driver. 
*FX 5,4 Network printer. 


There is also a user defined printer 
driver vector, or jump address, that can 
be used to point to the new driver, 
wherever we decide to put it. The 
following listing simply assembles a new 
machine code driver and saves it to disc. 
Once the driver has been loaded, 
entering *FX5,3 will divert the printer 
output to a specified file. 


ENTERING THE PROGRAM 

Enter the program paying particular 
attention to the assembler part, 
especially if you are not familiar with 
assembly language. Ensure that you save 
the program before you run it to avoid 
corruption in case of error. 


USING THE PROGRAM 

The program generates a short machine- 
code utility and automatically saves it to 
disc as 'DISCSPL'. The following 
information will then be displayed on 
the screen. 


To load the printer driver into memory 
and specify the file to which all output is 
to be diverted use the following star 
command: 
*DISCSPL <filename> 

The utility will generate an error if you 
do not specify a filename. Make sure that 
the single space between the command 
and the filename is not omitted. If the file 
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Disc Spooler Utility 


is successfully opened then this is 
announced together with the file channel 
(or handle) number in hexadecimal: 

Spool file opened channel &11 


Disc Spooler saved as 'DISCSPL' 
It will operate from PAGE &900 
Syntax: DISCSPL <afsp> 
File can be closed by CLOSE # channel 


Spooler is activated by “FX 5,3' 
Spooler is de-activated by: 
“FX 5,1' for parallel printers or 
“EX 5,2' for serial printers. 


Once a spool file has been opened, it may 
be activated with *FX5,3. From this point 
onward any output scheduled for the 
printer will be spooled to disc. The driver 
is de-activated by executing either *FX5,1 
or *FX5,2 to restore your normal driver. 
Finally, the file should be closed with the 
command CLOSE#<channel>, e.g. CLOSE#&11 
in the example above. 


RECOVERING OUTPUT 

The resultant file will be in a standard 
ASCII format and may be loaded into 
most popular word processors (e.g. 
Wordwise, View, etc.). If the file contains 
Basic or assembly language instructions 
then they will need line numbers. The 
easiest method of giving them line 
numbers is to load the file into a word 
processor and insert the word 'AUTO' 
before the first instruction. When you 
save the file from the word processor 
make sure that you spool the text out 
rather than just saving it (for View, save 
the file without rulers or embedded 
commands). If you then *EXEC the file 
from within Basic, line numbers will be 
provided automatically. Should you wish 
to do more elaborate things with the file 
it will be necessary to write your own 
program to read the file in, one line at a 
time, and deal with it accordingly. The 
following program demonstrates how to 
read in a file. In this example the file is 
simply sent to the printer but the 
program could be altered to direct the 
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contents into another file, perhaps using 
a different format. 

10 REM SPOOLER 

20 REM D.R. Floyd 

30 REM March 1992 

40 : 
100 CLS:VDU2 
110 C$-OPENIN("filenme") 
120 REPEAT 
130 B$-BGET#C$:VDU1, B% 
140 UNTIL EOF#C$ 
150 VDU3 :CLOSE#C% 


PROGRAM DESCRIPTION 

The program is well structured so it 
should be easy to follow for those people 
familiar with assembly language. 
However, the listing is in such a style that 
errors should be easy to detect by 
anyone. The code can be segregated into 
three distinct blocks. 


Lines 1160-1500. This routine initialises the 
spooler, setting the vectors to point to the 
new driver called 'spool'. The channel 
number is displayed using a short routine to 
avoid the different addresses in Basic I and I. 


Lines 1510-1660. This is the new driver, 
which is not a printer driver at all, but 
simply sends characters to the disc buffer. 


Lines 1670-1730. This is the display routine, 
which writes messages to the VDU screen. 
The message is pointed to by the zero-page 
address &80, and is displayed until either a 
&0D or &00 is found. The message is 
completed by a Carriage Return only if the 
terminator is &0D. The three messages are 
inserted into the assembled code using 
Basic indirection operators. 


The last three Basic procedures can be 
considered as house keeping, and do not 
affect the utility itself. The final machine 
code utility just fits into one page of 
memory. 


The only problem that may arise is when 
another program uses the same 
workspace, namely &70 to &82 and &900 
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Disc Spooler Utility 


to &9FF. Now any printer output can be 
redirected to a file quickly and efficiently. 


This program will not work on machines 
fitted with Econet. 


E 


DISC SPOOLER 

1:57 

D.R. FLOYD 

March 1992 

Subject to copyright 


REM Program 
REM Version 
REM Author 
REM BEEBUG 
REM Program 


ON ERROR PROCerror: END 
MODE 7 

PROCtitle 
PROCinitialise 
PROCassemble 
PROCautosave 
PROCinstructions 

END 


DEF PROCinitialise 
osfind% &FFCE 
osput% &FFD4 
osnl$ &FFET 
oswrch% &FFEE 
osbyte% &FFF4 
osclit &FFF7 
filename% = &0070 
handle% &0082 
code% &0900 
ENDPROC 


DEF PROCassemble 

FOR I$-0 TO 2 STEP 2 
P%=code% 

[ OPT I% 

. setup 

LDA #code% DIV 256 

STA &81:LDA &0708:CMP #&20 
BNE prompt :LDX #&0 

. floop 

LDA &0709,X:STA filename$,X 
INX:CMP #&0D:BNE floop 
.Open 

LDX #filename$ MOD 256 

LDY #filename$ DIV 256 

LDA #&80:JSR osfind$ 

STA handle$:BEO cantopen 

. vectors 

LDA #spool MOD 256:STA &222 
LDA #spool DIV 256:STA &223 


470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
HR$13 
930 
940 
950 


LDA #message MOD 256:STA &80 
JSR display:LDA handle$ 

LSR A:LSR A:LSR A:LSR A 
JSR print :LDA handle$ :JSR print 
JSR osnl$ 

RTS 

print 

AND #&OF:ORA #&30:CMP #&3A 
BCC oscall 

-hex CLC:ADC #&07 

-oscall JSR oswrch$ 

RTS 

.Cantopen 

LDA #error MOD 256:STA &80 
JSR display 

RTS 

.prompt 

LDA #syntax MOD 256:STA &80 
JSR display 

RTS 

. spool 

CPY #&03:BEQ userprint 

RTS 

.userprint CMP #&00 

BEQ printok:CMP #&01 

JSR printok:CLC 

RTS 

.printok 
TXA:PHA:TYA:PHA:LDA #&91 
JSR osbyte$:BCS empty: TYA 
LDY handle$:JSR osput% 
-exit 

PLA: TAY : PLA: TAX: RTS 

. empty 

LDA #&7B:LDX #&03:JSR osbyte% 
JMP exit 

.display JSR osn1%:LDY #&0 
. loop 

LDA (&80),Y:JSR oswrch$:INY 
CMP #&0D:BEQ nldrts:CMP #&0 
BEQ drts:JMP loop 

.nldrts JSR osnl$ 

.drts RTS 

.syntax 

] 

$syntax="Syntax: DISCSPL <afsp>"+C 


P$=P$+LEN (Ssyntax) +1 
{ OPT I% 
-Message 


Continued on page 26 
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by Mike Williams 


This month, perhaps by 
way of a little light relief 
from recent Workshops, I 
want to deal with a 
programming problem 
which recently came my 
way. A reader wrote 
seeking some assistance in 
the writing of a program 
to create a cheguer board 
pattern of black and white 
squares, such as is used 
for chess and draughts. If 
I remember correctly, the 
reader wanted a board 
with five rows and six 
columns, but it struck me 
that here was a more 
general problem which 
might be of interest to 
other readers. 


The problem we shall 
deal with can be 
expressed quite simply: to 
write a program to 
display a chequer board 
-| pattern containing a user- 
defined number of rows 
and columns, with each 
square of a user chosen 
size. The board should 
have a black square in the 
bottom left-hand corner, 
and we will also need to 
7] determine a starting 
position for the board. 


With any programming 
problem there are two 
ways of approaching it: 
from the top down and 
from the bottom up. 
Usually a mixture of both 
| approaches works best, 
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Creating a Chequer Board 


with some input in the middle to sort 
things out. We will also try to produce 
routines which are independent of any 
mode (we only need two colours black 
and white), but we will assume that we 
use a graphics mode and work in terms of 
graphics co-ordinates. 


In what follows, I will refer to two 
variables, black and white, which I shall 
assume have been assigned the colour 
numbers appropriate for black and white 
in whatever mode you choose to work. 
Thus a statement like: 
GCOL 0,black 

will select the appropriate colour 
number for black graphics. 


My first instinct in dealing with this 
problem is to create a basic building 
block, a procedure for placing a black 
square of a given size on the screen in a 
given position. Again an assumption 
needs to be made, namely that the screen 
will be coloured white to start with. In 
fact, writing such a procedure is quite 
simple, though there are two different 
techniques which might be used. Here, 
perhaps, is the most obvious approach, 
using graphics commands to create a 
black square from two filled triangles. 


1000 DEF PROCsquarel (x,y,s) 

1010 GCOL 0,black 

1020 MOVE x,y:MOVE x,y+sS 

1030 PLOT 85,x+s,y:PLOT 85,x+s,y+s 
1040 GCOL 0,white 

1050 ENDPROC 


The parameters ‘x’ and ‘y’ represent the 
position of the bottom left-hand corner of 
the square, and ‘s’ is the size of the 
square, all in screen graphics co-ordinates. 


Another technique, which sometimes 
gives a more pleasing screen effect than 
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Workshop - Creating a Cheguer Board 


seeing two triangles drawn, is to use the 
CLG instruction to clear a suitably 
defined graphics window to black. This 
is the basis of the second procedure. 


1100 DEF PROCsquare2(x,y,s) 
1110 GCOL 0,128+black 

1120 VDU 24,x;y;x+s;yt+s; 

1130 CLG:GCOL 0,128+white:VDU26 
1140 ENDPROC 


OK, so we have a means of displaying a 
single square. Now we have to 
investigate how best to create a chequer 
board. In principle this seems ideally 
suited to two nested loops, an inner one 
to create a row of black squares, and an 
outer one to create a sequence of such 
rows. Let us take it step by step. Perhaps 
we should start by writing a procedure 
to lay down a row of squares. 


1200 DEF PROCrow(x,y,s,n) 

1210 LOCAL I% 

1220 FOR I$-1 TO (n+1)DIV2 

1230 PROCsquare2 (x+2* (I%-1) *s,y,s) 
1240 NEXT I% 

1250 ENDPROC 


Now that’s not too bad once we have 
worked out the step from one square to 
the next, a step which is twice the size of 
a single square because of the alternating 
black and white squares (hence the 
expression for the first parameter in the 
call to PROCsquare). Notice also the 
expression at the end of the FOR 
statement. Assuming that ‘n’ is the 
number of squares in a row, there will be 
(approximately) half that number of 
black squares, the result depending on 
whether the row contains an even or odd 
number of squares (just another small 
complication which needs taking care of). 


However, now consider the problems 
which may arise when creating the next 
row up. First of all the first square will 
now be a white one; the first black square 
will be indented one square to the right. 
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Depending on the number of rows and 
columns, there may not even be the same 
number of black squares in row two; 
there may be one less than in the row 
before. Things are beginning to get more 
than a little messy, so let’s take a step 
back and re-appraise the problem. 


Clearly life would be much simpler if, 
instead of plotting just black squares, we 
plotted both black and white alternately. 
This would overcome most of the 
problems above at the expense of plotting 
twice the necessary number of squares. 
All we have to do is to ensure that we 
start each row alternately with a black 
and then a white square. Incidentally, this 
approach also has the advantage that the 
screen can be any colour: we no longer 
rely on it being white. Here then are the 
revised procedures. 


1000 DEF PROCsquare(x,y,s,Cc) 
1010 GCOL 0,128+c 

020 VDU24,x;y;x+s;y+s; 
1030 CLG:VDU26 

1040 ENDPROC 


100 DEF PROCrow(x,y,s,nc,c) 

1110 LOCAL I% 

1120 FOR I%=1 TO nc 

130 PROCsquare (x+s* (I%-1) ,y,s,c) 

1140 IF c=black THEN c=white ELSE c=black 
1150 NEXT I% 

160 ENDPROC 
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1200 DEF PROCboard(x,y,s,nr,nc,c) 

1210 LOCAL J% 

1230 FOR J%=1 TO nr 

1240 PROCrow(x, y+s* (J%-1) ,s,nc,c) 

1250 IF c=black THEN c=white ELSE c=black 
1260 NEXT J% 

1270 ENDPROC 


The procedure PROCsquare now plots a 
single square with colour determined by 
the value of the parameter ‘c’. PROCrow 
draws a row of squares, the parameter 
‘nc’ being the number of columns on the 
complete board. The parameter ‘c’ is now 
the colour of the first square in the row. 
As squares are drawn along the row, the 
colour is changed alternately between 
black and white. 


The last procedure, PROCboard, is 
completely new, and uses the other 
procedures to draw a full chequer board 
with ‘nc’ columns and ‘nr’ rows. The 
parameter ‘c’ is the colour of the bottom 
left-hand square. Thus a call like: 
PROCboard(200,100,100,8,8, black) 
would create a standard chess board 
layout on the screen with squares 100 
units in size. A border could also be put 
round the chequer board by first drawing 
a single square a little larger than the 
board proper: 
PROCsquare (196, 96, 808, black) 


ae 


Having got to this point and tested that 
all is well, I had a further idea - what 
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about some modifications to produce a 
similar pattern, but with a skewed board, 
i.e. with some angle other than ninety 
degrees at the corner. 


seSIN(a) 


<— s*COS(a)—> 


Figure 1 


We will have to use the triangle method 
for drawing a skewed square, but the 
necessary procedure is similar to what 
we have seen before but with the aid of 
some geometry (see figure 1): 


1300 DEF PROCskew(x,y,S,a,C) 

1310 GCOL 0,c 

1320 MOVE x,y:MOVE x+s*COS(a) , y+s*SIN(a) 
1330 PLOT 85,x+s,y 

1340 PLOT 85,x+s+s*COS(a) ,y+S*SIN(a) 
1350 ENDPROC 


All the other procedures can remain the 
same provided each has provision for 
an angle parameter ‘a’ (it is assumed 
this is specified in degrees, but 
converted to radians as required). A 
complete listing of a working program 
to do this is given at the end of this 
article. 


I hope this discussion has given you 
some insight into how to write a 
program in general, and solve one 
problem in particular. If anyone has any 
useful comments or updates to the 
ideas I have discussed then I am sure 
we can find space to give them an airing 
in a future issue. 
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10 REM Program Cheguer2 1160 ENDPROC 
20 REM Version B1.0 1170: 
30 REM Author Mike Williams | 1200 DEF PROCboard(x,y,s,nr,nc,c,a) 
40 REM BEEBUG March 1992 1210 LOCAL al,J%:al=a*PI/180 
50 REM Program subject to copyright 1230 FOR J%=1 TO nr 
60: | 1240 PROCrow(x+s* (J%-1) *COS (al) ,y+s* (J$- 
100 MODE1:GCOL 0,129:CLG 1 )*SIN(al),s,nc,c,a) 
110 black=0:white=3 1250 IF c=black THEN c=white ELSE 
120 PROCskew(46, 96, 808, black, 60) c=black 
130 PROCboard(50,100,100,8,8, black) 1260 NEXT J% 
140 REPEAT UNTIL FALSE 1270 ENDPROC 
150 END 1280: 
160: | 1300 DEF PROCskew(x,y,s,c,a) 
1100 DEF PROCrow(x,y,s,nc,c,a) 1310 GCOL 0,c:a=*PI/180 
1110 LOCAL I% 1320 MOVE x,y:MOVE x+s*COS (a) ,y+s*SIN(a) 
1120 FOR I$-1 TO nc 1330 PLOT 85,x+s,y 
1130 PROCskew(x+s* (I%-1) ,y,s,c,a) 1340 PLOT 85,x+s+s*COS (a) ,y+s*SIN(a) 
1140 IF c=black THEN c=white ELSE c=black 1350 ENDPROC 
1150 NEXT I$% B 
Disc Spooler Utility (continued from page 22) 
[ 960] 1200 PRINT'"File can be closed by 'CLOS 
970 $message="Spool file opened channe E # channel'" 
1 &"+CHR$0 1210 PRINT' Y Spool er is activated by '*F 
980 P%$=P$+LEN(Smessage) +1 BAK 
990 [ OPT I$ 1220 PRINT'"Spooler is de-activated by: 
1000 .error ie 
1010 ] 1230 PRINT'" '*FX 5,1' for parallel pr 
1020 Serror="Unable to open file"+CHR$1 inters or" 
8 1240 PRINT'" '*FX 5,2' for serial pr 
1030 P$=P%+LEN(Serror) +1 inters." 
1040 NEXT I% | 1250 ENDPROC 
1050 ENDPROC | | 1260 : 
| 1060 : 1270 DEF PROCtitle 
1070 DEF PROCautosave | 1280 CLS 
1080 DIM save 30 | 1290 FOR LA$-2 TO 3:PRINT TAB(13,LA%)CH 
| 1090 $save="SAVE DISCSPL 900 "+STRS~P$+ R$ (141); "DISC SPOOLER" :NEXT 
" 900" 1300 PRINTTAB(9,7)"Printer output to Di | 
1100 X$-save MOD 256 sc" 
1110 Y$-save DIV 256 1310 PRINTTAB(14, 12) "Written by" | 
1120 CALL oscli$ | 1320 PRINTTAB(14,14)"D. R. Floyd" | 
1130 ENDPROC | 1330 PRINTTAB(0,21)" Press any key to 
1140 : | assemble otherwise Escape | 
1150 DEF PROCinstructions to exit." | 
1160 CLS 1340 G=GET | 
1170 PRINT*Disc Spooler saved as 'DISCS 1350 ENDPROC | 
PL!" 1360 : 
1180 PRINT'"It will operate from PAGE & | 1370 DEF PROCerror | 
900" | 1380 CLS:REPORT:PRINT" at line ";ERL | 
1190 PRINT'Ssyntax | | 1390 ENDPROC B | 
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Mr Toad's Screen FX ROM 


David Holton puts some variety into clearing the screen. 


One of the annoying features of Basic, after 
a while, is that there is essentially only one 
way to clear the screen, which soon gets 
boring in otherwise well-presented 
software. BBC Basic is fast enough for 
some effects to be written, but they take 
time and memory and distract the 
programmer from the main purpose of 
the software. 


The programs listed here provide you 
with a number of new ways to clear the 
screen and so add some extra interest to 
your own programs. The routines are 
written in the form of a ROM image to 
load into sideways RAM thus leaving 
the space for Basic programs unaffected. 


Type in the first listing, FXROM, and the 
run it. Basic will assemble the code and 
find a free slot for it. Alternatively, you 
could save the object- code with *SRSAVE 
fxcode 8000+500 7 and load it back in off 
disc by including in the !BOOT file 
*SRLOAD fxcode 8000 7, then initialising 
it with ?&2A8-&82, provided you know 
that slot 7 (or 6,5 or 4 - alter the above as 
needed) will be free. 


Typing *HELP should show the following 
twelve effects: 


*BOX The screen will be cleared from 
the outside inwards, vanishing into an 
ever decreasing box shape. 


*DIA The screen will be cleared 
diagonally, from the bottom left corner 
upwards. 


*DIS Dissolve: a random pattern of 
spaces will slowly erase most of the 
screen, then any residue will be cleared 
by one of the other effects. 


*PAT A pattern of characters will fill 
the screen from the top down; this will 
then immediately be cleared by one of 
the other effects. If you type any 
character immediately after *PAT then 
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the pattern will consist of this character. 
If not, then in mode 7 a random 
character will be chosen; in other modes 
an abstract mosaic will fill the screen 
and then disappear. 


*SCU The screen will scroll upwards 
until it is clear. 


*SDR The screen will scroll off 
diagonally down and right. 


A part cleared screen 


*SPL In mode 7 only, the *DIS routine 
is used to splatter the screen with colour 
control codes instead of spaces, giving a 
mosaic effect which then clears as with 
*DIS. In any mode other than mode 7, 
this routine will automatically jump to 
“DIS. 


*SQU The screen will clear from both 
sides inwards, giving a “sgueeze” effect. 


*SUR Scrolls the screen up and right. 


*TOP The screen is wiped from the 
top down. 


*WIN The screen is wiped from the 
top down and bottom up, like a wink. 


*WIP The screen is wiped from left to 
right. 
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You may wish to use these effects at 
random in your programs, and because 
nothing on a Basic line is executed after a 
star command, this can take a lot of code. 
To get round this I have provided another 
command, *FXR, which will pick an effect 
at random for you. The probabilities of 
any effect being chosen are roughly equal, 
except that in mode 7, where *SPL can be 
used, the probabilities of *DIS and *SPL 
turning up are each about half of the 
chances for any other effect. 


A DEMONSTRATION 

The second listing, FXDEMO, runs 
through the various effects using *FXR in 
mode 2 until you press Escape. You may 
find that some ROMs will cause this 
program to hang up, especially Computer 
Concepts’ SPELLMASTER, so you will 
need to *UNPLUG these before running. 


I would suggest that the best way to use 
this ROM with your programs is to include 
on your disc the listing exactly as given 
here, with the possible omission of the 
message (leave out line 3550). In your 
{BOOT file, put CHAIN “FXROM” before 
chaining your own program, or you can 
tack your Basic menu onto the end of 
FXROM, if you have a suite of programs. 


The ROM is written to work on any BBC 
with sideways RAM, the extra opcodes 
available on the Master have been 
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avoided. Not all Beebs have the 
*SRWRITE command, however; it’s in 
the 1770 DFS ROM. Only the Master’s 
SRAM slots are numbered 4 TO 7, too, 
which I have used in the Basic loop at 
the end, so you may have to customise 
line 3470. 


The effects are designed for modes with 
40 columns or less; with modes 0 and 3 
they may appear slow. In many cases 
you can alter the delay parameter LDA 
#&28:STA dyLen, which appears at line 
950, in order to speed up the effect, but a 
few effects, e.g. *DIA and *DIS, are 
already going flat-out and do not call the 


al 


If you use the ROM in a game with 
redefined characters, you can use one of 
the characters with *PAT by typing e.g. 
OSCLI “PAT”+CHR$ &FE (if the sprite is 
CHR$ &FE). However, you could be in 
trouble if your program uses CHR$ &FF 
for a sprite and by doing *PAT alone you 
accidentally scramble your sprite, so avoid 
&FF or change the number in line 2740. 


. and half way through 


HOW DO THE EFFECTS WORK? 

Some effects, including *DIA and *DIS, 
simply print spaces, and these are the ones 
which are already as fast as they can be. The 
scrolling routines use VDU 23,7 and the 
wipes repeatedly redefine a window with 
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VDU 28 and clear it with VDU 12; this is 
much guicker than VDU 23,8 and a good 
deal less confusing to the poor old 
programmer. It follows that all the code is 
“legal”, the only exception being that I read 
the screen mode and dimensions directly 
from the VDU variables at &355, &309 and 
&30A; these are the same on all Beebs. It 
also follows that some routines Won't 
behave if a text and graphics window are 
open at once; you'll have to suck it and see. 
Some will work, and I have tried to leave 
provision for re-coding in this respect; for 
example, in the wipes I use variables where 
the constant 0 would have been easier since 
the full screen always starts at 0,0. 


NEXT 
170 PRINT" {iil Uitte; 
180 col3%=RND(7):IF col3%=col2% GOTO 1 


190 COLOUR col3%:COLOUR 128+col3% 
*FXR 


REM Program FXROM 
20 REM Version B1.00 
30 REM Author Mr Toad aka D Holton 
40 REM BEEBUG March 1992 
50 REM Program subject to copyright 
60 REM For use with sideways RAM. 


100 2%=&5000 

110 osnewl=&FFE7 

120 osasci=&FFE3 

130 oswrch=&FFEE 

140 osword=&FFF1 

150 osbyte=&FFF4 

160 Yparam=&309 :Xparam=&30A 
170 rndLo=&80 :rndHi=&81 
180 ctrlo=&82:ctrhi=&83 
190 left=&84:right=&85 
200 top=&86 : bot tom=&87 
210 height=&88:width=&89 
220 mask=&8A:dyLen=&8B 
230 x=&8C 


Finally, note that I have used a byte in the 
ROM itself as a flag (lines 3410 and 3420.) 
This is fine unless you want to blow the 
code into an EPROM; unlikely, but if you 
did, you’d have to find a safe address in 
main memory and reset it to zero in the 
Basic which loads the code. 


Note also that the variables in zero page 
are in the legal area made available to the 
programmer by Basic but that any or all of 
them can be corrupted between calls to the 
ROM without any harm being done; they 
are needed only while the ROM is actually 
running. I hope you have plenty of fun 
with this ROM and that it will add 


250 FOR opt%=4 TO 6 STEP 2 
260 P%=&8000:0%=2% 

270 [ OPT opt% 

280 BRK:BRK:BRK 

290 JMP whatIsItNow 


something to your own programs. 300 EQUB &82 
310 EQUB offset MOD 256 
Program FXDEMO 320 EQUB &91 
20 REM Version B1.0 330 EQUS "Mr Toad's FX ROM" 
30 REM Author David Holton 340 .offset 


40 REM BEEBUG March 1992 


350 BRK:EQUS"(C) BEEBUG March 1992" 
50 REM Program subject to copyright : 


370 .whatIsItNow 


70 n%=RND(-TIME) 380 CMP #4:BEQ letsSee 


80 MODE 130 390 CMP #9:BEQ youRang:RTS 
90 REPEAT 400 : 
100 co11$-RND(B)-1:COLOUR col1% 410 .youRang 


420 PHA:TXA: PHA:TYA: PHA 

430 JSR osnewl 

440 LDX #0:LDA &355:CMP #7 

450 BNE helpLp 

460 .helpLp 

470 INX:LDA helpTxt,X:PHP:JSR osasci 
480 PLP:BNE helpLp 

490 JSR osnewl 


110 col2%=RND(7):IF col2%=col1% GOTO 1 
00 

120 COLOUR 128+col2% 

130 VDU 23,33,RND(256) -1,RND(256) -1,RN 
D(256) -1, RND(256) -1, RND(256) -1, RND (256) - 
1, RND(256)-1,RND(256) -1 

140 FOR n$-0TO29 

150 PRINT’ BERK Pre! 1 OPP Eyes 
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500 .noClaimBonus 

510 PLA:TAY:PLA:TAX:PLA:JMP out 
520%: 

530 .letsSee 

540 PHA:TXA: PHA: TYA: PHA 

550 LDX #&FF 

560 .chkLp 

570 LDA (&F2),Y:INY 

580 CMP #&20:BEQ chkLp:AND #&DF 
590 INX:CMP thingies,X:BEQ chkLp 
600 LDA thingies,X:BMI maybe 

610 .tryAgain 

620 INX:LDA thingies,X:BPL tryAgain 
630 INX:PLA:TAY:PHA:JMP chkLp 
640 .maybe 

650 CMP #&FF:BEQ noClaimBonus 
660 STA &DEFF: INX 

670 LDA thingies,X:STA &DEFE 

680 JMP (&DEFE) 


700 .splatter 
710 LDA #&87:LDX &355 
720 CPX #7:BEQ entry 


740. .dissolve 

750 LDA #&20 

760 .entry 

770 STA mask:JSR init:INC bottom 
780 LDA height:LSR A:LSR A 

790 STA ctrhi:INC right:JSR setUpRnd 
800 .loop 

810 LDA #&1F:JSR oswrch 

820 .newCol 

830 JSR getbyte:AND #&7F 

840 CMP right:BPL newCol:JSR oswrch 
850 .newLine 

860 JSR getbyte:AND #&3F 

870 CMP bottom:BPL newLine 

880 JSR oswrch:LDA &FE78 

890 ORA #&A0:AND mask:JSR oswrch 
900 DEC ctrlo:BNE loop 

910 DEC ctrhi:BNE loop 

920 JSR getbyte:JMP rndEntry 


940 .wink 
950 LDA #&28:STA dyLen:JSR init 
960 LDA height:LSR A:STA ctrlo 
970 .loop 
980 JSR winkBoth 
990 JSR delay:DEC ctrlo:BPL loop 
1000 .claimOut 
1010 LDA #&1A:JSR oswrch 
1020 LDA #&0C:JSR oswrch 
1030 PLA:PLA:PLA:LDA #0:RTS 


1050 .wipe 

1060 LDA #&30:STA dyLen 
1070 JSR init:ASL ctrlo 
1080 .loop 

1090 JSR wipeColumnL:JSR delay 

1100 DEC ctrlo:BPL loop:JMP claimOut 
1110 : 

1120 .pattern 

1130 JSR init:DEY 

140 .loop 

150 LDA (&F2),Y:INY:CMP #&20 

1160 BEO loop:CMP #&0D:BNE not0D 
1170 JSR setUpChar 

180 .not0D 

190 LDX width 

1200 .outer 

1210 LDY height 

1220 .inner 

1230 JSR oswrch:DEY:BPL inner 

1240 DEX:BPL outer 

1250 JSR getbyte:JMP rndEntry 


1270 .diagonal 

1280 JSR init:LDA width:STA x 
1290 .loop 

1300 LDA #&1F:JSR oswrch 

1310 LDA right:JSR oswrch 

1320 LDA bottom:JSR oswrch 

1330 LDA #&20:JSR oswrch 

1340 LDA right:CMP width 

1350 BEQ checkCopies:INC right 
1360 LDA bottom:BEQ checkCopies 
1370 DEC bottom:JMP loop 

1380 .checkCopies 

1390 LDA x:BEQ xWasZ 

1400 DEC x:JMP update | 
1410 .xWasZ 

1420 LDA height:BEQ exit:DEC height 
430 .update 

1440 LDA height:STA bottom 

1450 LDA x:STA right:JMP loop 

1460 .exit 

1470 JMP claimOut 


1490 .boxes 
1500 JSR init:LDA #&20:STA dyLen:DEC ri 
ght 
1510 .loop 
1520 JSR wipeColumnR:JSR wipeColumnL 
1530 JSR winkBoth 
1540 JSR delay:DEC ctrlo 
550 BPL loop:JMP claimOut 
1560 : 
1570 .squeeze 
1580 LDA #&30:STA dyLen 
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1590 JSR init:DEC right 2140 LDA height :ASL A:STA ctrlo 

1600 .loop 2150 LDA #3:STA x:STA mask 

1610 JSR wipeColumnL:JSR wipeColumnR 2160 : 

1620 JSR delay:DEC ctrlo 2170 .scrLoop 

630 BNE loop:JMP claimOut 2180 LDA #&17:JSR oswrch 

640 : 2190 LDA #7:JSR oswrch 

1650 .random 2200 LDA #1:JSR oswrch 

1660 JSR setUpRnd 2210 LDA x:EOR mask:STA x:JSR oswrch 

1670 CMP #&F0:BCS sURjmp 2220 LDA #0:LDY #6 

1680 CMP #&DC:BCS scrollDR 2230 .innerLoop | 

1690 CMP #&C6:BCS disJmp 2240 JSR oswrch:DEY:BNE innerLoop 

1700 CMP #&BA:BCS splJmp 2250 JSR delay:DEC ctrlo 

1710 CMP #&AD:BCS patJmp 2260 BPL scrLoop:JMP claimOut 

1720 CMP #&94:BCS scrollU POT es 

1730 .rndEntry 2280 .winkBoth 

1740 AND #&7F:CMP #&69:BCS boxes 2290 LDA #&1C:JSR oswrch 

1750 CMP #&59:BCS diadmp 2300 LDA left:JSR oswrch 

1760 CMP #&4F:BCS squeeze 2310 LDA bottom:JSR oswrch 

1770 CMP #&3C:BCS topDown 2320 LDA right:JSR oswrch 

1780 CMP #&1E:BCS winkJmp:JMP wipe 2330 DEC bottom:LDA bottom:JSR oswrch 

1790 .diaJmp 2340 LDA #&0C:JSR oswrch 

1800 JMP diagonal 2350 : 

1810 .patJmp 2360 .winkTop 

1820 JSR getbyte:STA (&F2),Y 2370 LDA #&1C:JSR oswrch | 

1830 INY:JMP pattern 2380 LDA left:JSR oswrch 

1840 .sURjmp 2390 INC top:LDA top:JSR oswrch 

1850 JMP scrollUR 2400 LDA right:JSR oswrch 

1860 .splJmp 2410 DEC top:LDA top:JSR oswrch 

1870 JMP splatter 2420 LDA #&0C:JSR oswrch 

1880 .disJmp 2430 JSR delay: INC top:RTS 

1890 JMP dissolve 2440 : 

1900 .winkJmp 2450 .wipeColumnL 

1910 JMP wink 2460 LDA #&1C:JSR oswrch 

1920 : 2470 LDA left:JSR oswrch 

1930 .topDown 2480 LDA height:JSR oswrch 

1940 LDA #&12:STA dyLen 2490 INC left:LDA left:JSR oswrch 

1950 JSR init:LDA height:STA ctrlo 2500 LDA top:JSR oswrch 

1960 LDA #0:STA left:STA top 2510 LDA #&0C:JSR oswrch:RTS 

1970. loop 2520 : | 

1980 JSR winkTop:JSR delay:DEC ctrlo 2530 .wipeColumnR 

1990 BPL loop:JMP claimOut 2540 LDA #&1C:JSR oswrch 

2000 : 2550 LDA right:JSR oswrch 

2010 .scrollU 2560 LDA height:JSR oswrch 

2020 JSR init:LDA #&20:STA dyLen 2570 INC right:LDA right:JSR oswrch 

2030 LDA height:STA ctrlo 2580 LDA top:JSR oswrch 

2040 LDA #0:STA mask 2590 LDA #&0C:JSR oswrch 

2050 LDA #3:STA x:JMP scrLoop 2600 DEC right:DEC right:RTS 

2060 : 2610. * 

2070 .scrollDR 2620 .init | 

2080 JSR init:LDA #&10:STA dyLen 2630 LDA Xparam:STA width:STA right | 

2090 LDA height:ASL A:STA ctrlo 2640 LSR A:STA ctrlo 

2100 LDA #2:STA x:STA mask:JMP scrLoop 2650 LDA Yparam:STA height:STA bottom 

2110 : 2660 LDX #0:STX top:STX left 

2120 .scrollUR 2670 .loop 

2130 JSR init:LDA #&10:STA dyLen Ñ | 
continued on page 34 | 
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BUSINESS GRAPHICS - for producing graphs, charts and diagrams 

VIDEO CATALOGUER - catalogue and print labels for your video cassettes 

PHONE BOOK - an on-screen telephone book which can be easily edited and update 
PERSONALISED LETTER-HEADINGS - design a stylish logo for your letter heads 
APPOINTMENTS DIARY - a computerised appointments diary 

MAPPING THE BRITISH ISLES - draw a map of the British Isles at any size 

SELECTIVE BREEDING - a superb graphical display of selective breeding of insects 
PERSONALISED ADDRESS BOOK - on-screen address and phone book 

THE EARTH FROM SPACE - draw a picture of the Earth as seen from any point in space 
PAGE DESIGNER - a page-making package for Epson compatible printers 

WORLD BY NIGHT AND Day - a display of the world showing night and day for any time and 
date of the year 


Computers are often used for file handling applications yet this is a subject 
which computer users find difficult when it comes to developing their own 
programs. File Handling for All aims to change that by providing an extensive 
and comprehensive introduction to the writing of file handling programs with 
particular reference to Basic. 


File Handling for All, written by highly experienced authors and programmers David Spencer and Mike Williams, 
offers 144 pages of text supported by many useful program listings. It is aimed at Basic programmers, beginners 
and advanced users, and anybody interested in File Handling and Databases on the Beeb and the Arc. However, all 
the file handling concepts discussed are relevant to most computer systems, making this a suitable introduction to 
file handling for all. 


The book starts with an introduction to the basic principles of file handling, and in the following chapters develops 
an in-depth look at the handling of different types of files e.g. serial files, indexed files, direct access files, and 
searching and sorting. A separate chapter is devoted to hierarchical and relational database design, and the book 
concludes with a chapter of practical advice on how best to develop file handling programs. 


The topics covered by the book include: 
Card Index Files, Serial Files, File Headers, Disc and Record Buffering, Using Pointers, 
Indexing Files, Searching Techniques, Hashing Functions, Sorting Methods, 
Testing and Debugging, Networking Conflicts, File System Calls 


The associated disc contains complete working programs based on the routines described in the book and a copy of 
Filer, a full-feature Database program originally published in BEEBUG magazine. 
Aa 


Enhanced ASTAAD CAD program for the 
Master, offering the following features: 


Ææ full mouse and joystick control 

% built-in printer dump 

* speed improvement 

* STEAMS image manipulator 

Æ Keystrips for ASTAAD and STEAMS 

* = Comprehensive user guide 

* Sample picture files 
ASTAAD (80 track DFS) 1407a £5.95 ASTAAD (3.5" ADFS) 1408a £5.95 
EDIKIT (EPROM) 1451a £7.75 
EDIKIT (40/80T DFS) 1450a £5.75 EDIKIT (3.5" ADFS) 1452a £5.75 
Applications H (80 track DFS) 1411a £4.00 Applications II (3.5" ADFS) 1412a £ 4.00 
Applications I Disc (40/80T DFS) 1404a £4.00 Applications I Disc (3.5" ADFS) 1409a £ 4.00 
General Utilities Dise (40/80T DFS) 1405a £ 4.00 General Utilities Disc (3.5" ADFS) 1413a £ 4.00 


Please add p&p 


Games 


SOLITAIRE - an elegant implementation of this ancient and fascinating 
one-player game, and a complete solution for those who are unable to 
find it for themselves. 


Rou, or HONOUR - Score as many points as possible by throwing the 
five dice in this on-screen version of ‘Yahtze'. 


TOET 


PATIENCE - a very addictive version of one of the oldest and most 
popular games of Patience. 


ELEVENSES - another popular version of Patience - lay down cards on 
the table in three by three grid and start turning them over until they 
add up to eleven. 


CRIBBAGE - an authentic implementation of this very traditional card 
game for two, where the object is to score points for various combinations and sequences of cards. 


TWIDDLE - a close relative of Sam Lloyd's sliding block puzzle and Rubik's cube, where you have to move numbers round a 
grid to match a pattern. 


CHINESE CHEQUERS - a traditional board game for two players, where the object is to move your counters, following a 
pattern, and occupy the opponent's field. 


Aces HIGH - another addictive game of Patience, where the object is to remove the cards from the table and finish with the 
aces at the head of each column. 


Applications M Dise 


CROSSWORD EDITOR - for designing, editing and solving crosswords 

MONTHLY Desk Diary - a month-to-view calendar which can also be printed 

3D LANDSCAPES - generates three dimensional landscapes 

REAL TIME CLOCK - a real time digital alarm clock displayed on the screen 
RUNNING FOUR TEMPERATURES - calibrates and plots up to four temperatures 
JULIA SETS - fascinating extensions of the Mandelbrot set 

FOREIGN LANGUAGE TESTER - foreign character definer and language tester 

LABEL PROCESSOR - for designing and printing labels on Epson compatible printers 
SHARE INVESTOR - assists decision making when buying and selling shares. 


Arcade Games 


GEORGE AND THE DRAGON - Rescue 'Hideous Hilda' from the flames 
of the dragon, but beware the flying arrows and the moving holes on 
the floor. 

EBONY CASTLE - You, the leader of a secret band, have been captured 
and thrown in the dungeons of the infamous Ebony Castle. Can you 
escape back to the countryside, fighting off the deadly spiders on the 
way and collecting the keys necessary to unlock the coloured doors? 
KNIGHT QUEST - You are a Knight on a quest to find the lost crown, 
hidden deep in the ruins of a weird castle inhabited by dangerous 
monsters and protected by a greedy guardian. 

PITFALL PETE - Collect all the diamonds on the screen, but try not to 
trap yourself when you dislodge the many boulders on your way. 


BUILDER BOB - Bob is trapped on the bottom of a building that's being demolished. Can you help him build his way out? 


MINEFIELD - Find your way through this grid and try to defuse the mines before they explode, but beware the monsters 
which increasingly hinder your progress. 


Manic MECHANIC - Try to collect all the spanners and reach the broken-down generator, before the factory freezes up. 
Quan - You will have hours of entertainment trying to get all these different shapes to fit. 


DIL AA JE 35°H 


Stock Code Price Stock Code Price 
Arcade Games (40/80 track DFS) PAGla £5.95 Arcade Games (3.5" ADFS) PAG2a £5.95 
Board Games (40/80 track DFS) PBGla £5.95 Board Games (3.5" ADFS) PBG2a £5.95 
File Handling for All Book BKO2b £9.95 
File Handling for All Disc (40/80T DFS) BKO5a £4.75 File Handling for All Disc (3.5" ADFS) BKO7a £4.75 
Joint Offer book and disc (40/80T DFS) BKO4b &£ 11.95 Joint Offer book and disc (3.5" ADFS) BKO6b £11.95 


Please add p&p. UK: £1.00 first item (SOp for every additional item), Europe and Eire: £1.60 first item 
(80p every additional item), Elsewhere: £2.60 first item (£1.30 every additional item) 


Tel. (0727) 40303 Fax. (0727) 860263 
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| 2680 LDA killCursor,X:INX:JSR oswrch 

2690 CMP #&1E:BNE loop:RTS 

2700 : 

2710 .setUpChar 

2720 JSR setUpRnd 

2730 LDA &355:CMP #7:BEQ mo7 

2740 LDA #23:JSR oswrch 

2750 LDA #&FF:PHA:JSR oswrch 

2760 LDX #&7 

2770 .loop 

2780 JSR getbyte:JSR oswrch 

2790 DEX:BPL loop: PLA: RTS 

2800 .mo7 

2810 JSR getbyte:AND #&7F 

2820 CMP #&21:BMI mo7:RTS 

2830 : 

2840 .delay 

2850 LDY dyLen 

2860 .loop 

2870 DEX:BNE loop 

2880 DEY:BNE loop:RTS 

2890 : 

2900 .setUpRnd 

2910 LDA rndFlag:BNE getbyte 

2920 .setIndex 

2930 LDA #&FB:STA rndHi:STA rndFlag 
2940 LDA &FE78:STA rndLo 

2950 : 

2960 .getbyte 

2970 LDY #0:LDA &FE68 

2980 EOR (rndLo),Y:DEC rndLo 

2990 BNE ret:DEC rndHi:LDA rndHi 

3000 CMP #&DF:BEQ setIndex 

3010 .ret 

3020 RTS 

3030s: 3 

3040 .killcursor 

3050 EQUB &17:EQUB 1 

3060 EQUD 0:EQUD 0 

3070 EQUB &0F:EQUB &1E 

3080 : 

3090 . thingies 

3100 EQUS"BOX"+CHRS$ &0D:EQUBboxes DIV & 
100:EQUBboxes MOD &100 

3110 EQUS"DIA"+CHRS &0D:EQUBdiagonal DI 
V &100:EQUBdiagonal MOD &100 

3120 EQUS"DIS"+CHRS$ &0D:EQUBdissolve DI 
V &100:EQUBdissolve MOD &100 

3130 EQUS"FXR"+CHR$ &0D:EQUBrandom DIV 
&100:EQUBrandom MOD &100 

3140 EQUS"PAT" :EQUBpattern DIV &100:EQU 
Bpattern MOD &100 

3150 EQUS"SCU"+CHRS$ &0D:EQUBscrollU DIV 
&100:EQUBscrollU MOD &100 

3160 EQUS"SDR"+CHR$ &0D:EQUBscrollDR DI 
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V &100:EQUBscrollDR MOD &100 

3170 EQUS"SPL"+CHR$ &0D:EQUBsplatter DI 
V &100:EQUBsplatter MOD &100 

3180 EQUS" SQU" :EQUBsqueeze DIV &100:EQU 
Bsqueeze MOD &100 

3190 EQUS"SUR"+CHR$ &0D:EQUBscrollUR DI 
V &100:EQUBscrollUR MOD &100 

3200 EQUS"TOP":EQUBtopDown DIV &100:EQU 
BtopDown MOD &100 

3210 EQUS"WIN"+CHRS$ &0D:EQUBwink DIV &1 
00:EQUBwink MOD &100 

3220 EQUS"WIP"+CHR$ &0D:EQUBwipe DIV &1 
00:EQUBwipe MOD &100 

3230 EQUB &FF 

3240 : 

3250 .helpTxt 

3260 EQUS CHRS &83+"Mr Toad's Magic FX 
ROM" CHERS KUD 
3270 EOUS" 
3280 EOUS" 
3290 EQUS" 
3300 EQUS" 

$ &0D 

3310 EOUS" 
3320 EQUS" 
CHRS &0D 

3330 EQUS" 

$ &0D 

3340 EQUS" 
3350 EQUS" 

$ &0D 

3360 EQUS" 


BOX. es “#CHRS$ &0D 
DIA.gonal"+CHR$ KUD 

DIS. solve"#CHR$ KUD 
PAT.tern (<character>)"+CHR 


SCU (SCroll Up)"+CHRS$ &0D 
SDR (Scroll Down & Right) "+ 


SPL.atter (Mo. 7 only) "+CHR 


SQU.eeze"+CHRS$ KUD 
SUR (Scroll Up & Righ)"+CHR 


TOP.down"+CHR$ &0D 

3370 EQUS" WIN.k"+CHRS &0D 

3380 EQUS" WIP.e"+CHRS KUD 

3390 EQUS CHRS &0D+" FXR (Rand. sel. f 
rom above) "#CHR$ &0D 

3400 BRK 

3410 .mdFlag 

3420 BRK 

3430 .out 

3440 RTS 

3450 ] NEXT 

3460: 3: : 

3470 FOR slot%=7 TO 4 STEP-1 

3480 IF slot%?&2Al NEXT ELSE PROCShovel 
tIn: END 

3490 PRINT''"Mr Toad is sorry, but he c 
an't find a spare SRAM slot." 

3500 END 

3510 : 

3520 DEF PROCShoveltIn 

3530 OSCLI“SRWRITE "+STRS~Z%+" "+STRS~ ( 
1+0%)+" 8000 "+STR$ slot% 

3540 slot%?&2A1=&82 

3550 PRINT''"READY IN SLOT “;slot$ 


B 
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In our look at 
GEM so far 
we've covered 
most of the file 
types and last 
month we investigated the screen 
drivers, so now we'll move on to screen 
and printer fonts. 


SCREEN FONTS 

Six screen font files are provided in the 
GEMSYS directory on issue disc 2, ‘GEM 
Applications’. These are in two groups, 
with the names ‘IBMLSS??.FNT’ and 
‘IBMLTR??.FNT, where ?? in each case is 
a number: 10, 14 or 18. The number 
refers to the font point size, and the ‘SS’ 
files are ‘Swiss Style’ fonts, while ‘TR’ 
files are the ‘Dutch’. Any ideas what ‘TR’ 
means? 


You can see these fonts in GEM Paint in 
text mode, because the system’s fonts in 
the menus are built into the screen 
driver. The Paint typeface menu will list 
which other screen fonts are installed. 
By the way, GEM Write doesn’t use the 
screen font files, so if you only want to 
use Write you can ignore them. 


You may not be familiar with font point 
sizes, but if you look in the front of most 
books (though not usually manuals or 
magazines) on the publishers page, 
along with publishing history and the 
ISBN it will usually say something like 
“Set in 11 point Times Roman” or 
something similar. The point size is the 
overall size of the printed characters 
(both height and width) while the name 
that follows it is the type style used. You 
don’t really need to know much about 
point sizes, except to remember that 
larger point numbers indicate larger 
characters. 
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by Robin Burton 


The range of fonts in GEMSYS on disc 2 
therefore provides 10, 14 and 18 point 
sizes directly, though these can be 
doubled in size in GEM by software 
manipulation. For example, 36 point is a 
doubling of the character definitions in 
the 18 point font file. As you'll have seen 
if you’ve used GEM already, this 
software manipulation of character sizes 
is far from satisfactory, producing very 
unconvincing results. The bigger they 
are the worse they look. 


As usual on disc 4 Acorn has provided 
additional screen font files. Although the 
10, 14 and 18 point sizes are duplicates of 
the names on disc 2, the files are more 
recent and are slightly larger. Use the 
newer ones, which give slightly better 
results. You'll also see there is a real 36 
point size for each of the two styles and 
these should be copied to your GEMSYS 
directory to give a much better 36 point 
font than doubled 18 point. For a rough 
comparison of the quality of the 
resulting characters compare the file 
sizes. Four times the 18 point Dutch font 
file size is larger than the real 36 point 
Dutch file, but think of the compromises 
in expanding the area a character covers 
by four. 


The 36 point data also can be doubled to 
provide a quite reasonable 72 point font. 
If you do this you might think you can 
have text in every possible point size up 
to 72, but wait a bit before getting carried 
away. 


ADDITIONAL FONTS 

If the above screen font list isn’t enough 
for you, you can also try any of the other 
37 font files on disc 3 or those on disc 4 
as screen font files for use in GEM Paint. 
The other files are actually printer font 
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definitions, but they’ll work quite well on 
the screen, although they won’t produce 
text of the same size as screen fonts of the 
same point size. So long as you 
remember this they are useful additions 
and will extend your range of screen 
fonts considerably, but once again delay 
any decisions for the moment. 


If you do want to try this, however, 
you'll also need to know that the system 
will only recognise and use one file in 
each style of a given point size. If you 
wanted to use, say ‘EPSHSS10.FNT’ at 
the same time as ‘IBMLSS10.FNT’, both 
‘Swiss Style’ 10 point fonts, there’s a bit 
more work to do, though it’s only editing 
again. 


Each of the styles and point sizes is 
indicated to the system by the first few 
bytes of each font file, so both the screen 
and the printer 10 point Swiss font files 
look the same to the system even though 
there are two different files. In effect the 
second ‘same type’ font you’ve defined 
in ASSIGN.SYS replaces the first, unless 
you change it to make it appear to be 
from a different font set. 


EDBIN is the easiest way to do it, and 
each of the extra (duplicate type/size) 
font files will need to be changed. At the 
start of every font file the first two bytes 
are the font style number, and the next 
two are the point size. These are followed 
by the font name. All the fonts in each 
style must have the same style number 
and the same name, but these must be 
different for each style. If you therefore 
change the style and name in one set of 
the files the system will accept them as 
different and will use all of them. 


For example, to use all the ‘EPSLSSxx’ 
printer fonts as well as the ‘IBMLSSxx’ 
screen fonts would obviously cause a 
clash as things stand. However, if you 
change the first byte of the style number 
in all the printer font files to say, 4, (the 
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original was 2) and change the name, 
which can be up to 15 characters to say, 
‘Epsonswiss’, everything will be OK. 


Of course, you'll also have to make sure 
you copy all the appropriate files to your 
GEMSYS directory, as well as including 
the definitions in your ASSIGN.SYS file 
under the screen driver definition, 
otherwise they'll be ignored. 


PRINTER DRIVERS 

As we've already mentioned printer 
fonts, though not for the purposes of 
printing, let’s take a look at printer fonts 
next. 


The first and perhaps not too surprising 
point to make is that the printer font files 
are all ‘printer graphics’ font definitions, 
so they’re not used by text applications 
such as GEM Write. However, what may 
be surprising is that they’re not used by 
GEM Paint either. You might therefore be 
forgiven for wondering just what they 
are provided for, since neither of the 
supplied applications needs them. 


If I were being completely cynical I might 
say something like, “Well they make the 
contents of the discs look a lot more 
impressive.”. Of course, what I’m 
actually going to say is that they’re 
supplied on the GEM discs in case you 
want to use additional applications of 
your own that run under GEM, but 
which don’t provide their own printer 
font files. 


If you do need to use any of these printer 
fonts you must include the appropriate 
font filename under the printer driver 
definition line in your ASSIGN.SYS file. 
The meanings are pretty obvious, ‘EPS’ 
means Epson, the next character is either 
an ‘L’, for low resolution (the minimum 9 
pin capability), or an ‘H’, for high 
resolution. The next two characters are 
either ‘SS’ for Swiss or ‘TR’ for Dutch 
type-style, as we’ve already seen, while 
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the final two digits are the point size. All 
of these files, naturally, have the 
extension ‘FNT’. 


Although the font files it might use are 
optional, the printer driver itself isn’t. 
You must always declare a printer driver 
in your ASSIGN.SYS file if you want to 
print anything at all from GEM. The 
default driver supplied on disc 2 is 
‘EPSMONL6.SYS’, which translated 
means Epson, monochrome, low 
resolution. It’s basically for all Epson FX 
compatible 9-pin printers. If you have an 
Epson LQ compatible 24 pin printer you 
might prefer to replace the low resolution 
driver by ‘EPSMONH6.SYS’, which is the 
high resolution monochrome printer 
driver, not surprisingly located on disc 4. 


The printer driver used has no effect on 
text output, it only affects graphics mode 
printing. Printed text characters are, as 
usual, defined entirely by the printer’s 
internal character definitions as all text 
output is sent as simple characters, so it’s 
left for the printer’s software to decide 
how to produce them. The GEM printer 
driver affects only the quality of graphics 
output from GEM Paint (and the 
resolution of printed characters if any 
application does use the printer font 
files). If you wish to use only Write you 
can therefore forget about changing the 
printer driver. 


Basically the low resolution driver 
outputs graphics at 60 by 72 dots per 
inch, the lowest common denominator 
for 9 pin printers, though 24 pin models 
will handle this output perfectly well if 
you don’t want the best quality your 
printer can provide. The high resolution 
driver outputs 24 bit graphics, probably 
in triple density which is 180 by 180 dots 
per inch, though I’m not sure because I 
haven't tried it. 


If you don’t have an Epson compatible 
printer all may not be lost. A few other 
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printer drivers are included on disc 4, 
though the range is limited. The included 
drivers are: 


EPSCOLH6.SYS - Epson JX80 colour 
APLASRH6.SYS - Apple LaserWriter 
HPLASRL6.SYS - Hewlett Packard Laserjet 
HPLASRH6.SYS - Hewlett Packard Laserjet+ 
DIBCOLH6.SYS - Diablo C150 Colour ink-jet 
DIBL6306.SYS - Diablo 630 daisy-wheel 


Of these, of course, the last one doesn’t 
use font files under any circumstances. 
As for the rest, I can only echo David 
Harper’s words more or less exactly. 
These printer drivers are very complex, 
as you can see they vary between 25K 
and 35K each. If none of them suits your 
printer and you're desperate to use GEM 
it’s probably more sensible to change 
your printer than to attempt to produce a 
customised printer driver! 


OTHER FILES 

Anyone who is following all this really 
closely may have spotted that one driver 
file on disc 4 isn’t in the list above. It’s 
called ‘IBMHP746.SYS’ and it’s not in the 
list above because it’s a plotter driver. In 
theory it should suit a number of Hewlett 
Packard plotters, but I can’t comment 
much beyond that because I don’t own 
such a device. Naturally there are no font 
files because plotter output is in the form 
of ‘move x,y’ and ‘draw x,y’ instructions, 
very much like screen drawing 
commands in Basic. 


Clearly a plotter is not the right sort of 
output device for GEM Paint or Write, 
but it might be just what you need for 
GEM Draw or GEM Graph. 


There's one other ‘.SYS’ file in GEMSYS 
on disc 2 which wasn’t mentioned last 
month. It’s called METAFIL6.SYS and 
you probably noticed that it was 
included in the original ASSIGN.SYS file, 
so what's it for? 

continued on page 40 


37 


Text To Basic 


Jim Phillips makes printing text in Basic programs a breeze. 


There comes a time in every 
programmer's life when the tedious job 
of preparing a number of lines of 
presentable text for insertion in a Basic 
program cannot be avoided. It would be 
much better to write the text on your 
favourite word processor, on in Edit on 
the Master, all nicely formatted, and with 
this utility you can. 


TEAT TO BASIC 


Source filename?TEST 
Destination filename?TESTED 
Basic start number71000 

Insert PRINT or PRINTTAB ¢P/T)? 
Number of spaces to TAB710 


Setting up the options 


First prepare your text on the word 
processor or editor. Write it as you finally 
want to see it, ignoring all the Basic 
command requirements, but adding a 
blank line at the end, and save it as plain 
ASCII text. 


Type in, save and run the program 
TextBas then follow the prompts - you 
will need to know the line number you 
want the Basic text to start at. Remember 
that DFS files only allow seven 
characters in a name. You will now have 
another file which you can append to 
your main Basic program with the 
*EXEC command. 


The program removes any leading blank 
lines, inserts the command AUTO 
followed by your chosen start line and 
then prefixes each line with PRINT” or 
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PRINTTAB(n)” as appropriate. If you 
selected the prefix PRINT and a line of 
text is inset by a number of spaces m, 
these will be be replaced by the 
PRINTTAB(m) command. If, however 
you want to provide a left margin of 
width n using PRINTTAB(n) the 
command PRINTTAB(m+n)” will be 
issued for the inset lines. All lines are 
terminated by a “. 


Blank lines are replaced by the PRINT 
command in every case. This leads to the 
only snag in the program; trailing blank 
lines in the original text will all be 
replaced by PRINT. Setting the page 
length appropriately on the word 
processor is, of course, the best solution. 


Some word processors will still output 
control characters at the start of a 
spooled file. To accommodate this, the 
program discards any line starting with a 
control character. 


TEXT TO BASIC 


Setting up text in TEST as 
'EXEC' file TESTED starting 
with instruction AUTO 1000 
with prefix PRINTTABC10> 


Execute (Y/N)? 


Converting a file 


HOW IT WORKS 


The program makes extensive use of 
procedures. The main ones are as follows. 
PROCinfo issues an instruction to put in 
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the reguired disc(s) and then reguests 
filenames, AUTO start line number and 
whether a PRINT or a PRINTTAB prefix 
is reguired. If the latter is chosen the 
program reguests the number of spaces 
to be inserted. 


PROCmovetext opens the source file for 
reading and the destination file for 
writing. It sets up the text for the AUTO 
instruction and, via PROCsend, files it. It 
then reads the first line of the source file 
via PROCread. If the first entry is a 
control character it repeats this until an 
alpha-numeric character is obtained. A 
repeating routine is then entered which 
strips leading spaces from the text in 
PROClspace, removes any trailing 
control characters in PROClen and 
checks the length of the line. If the length 
is zero it sets output text to PRINT or, if 
not, writes the line using PROCsend. 


PROCIspace looks for leading spaces. If 
there are none the procedure sets the 
prefix to be the same as that entered and 
returns. Otherwise it removes the spaces, 
incrementing a counter for each one 
encountered and sets the prefix to 
TAB(original value+counter)”. 


Text To Basic 


10 REM Program TEXTBAS 

20 REM Version B1.0 

30 REM Author Jim Phillips 

40 REM BEEBUG March 1992 

50 REM Program Subject to copyright 


00 MODE7:ON ERROR GOTO 170 
10 PROCheader 

120 PROCinfo 

130 PROCmovetext 

140 PROCclose 

150 END 


170 MODE7:REPORT:PRINT" at line “GERL 
180 END 


1000 DEFPROCheader 

1010 PRINTTAB(10)CHRS141"TEXT TO BASIC" 
1020 PRINTTAB(10)CHRS$141"TEXT TO BASIC" 
1030 ENDPROC 


1040 : 

1050 DEFPROCinfo 

1060 VDU28,0,24,39,4 

1070 CLS:PRINT'' 

1080 PRINTTAB(2) "Remove program disc" 
1090 PRINT 

1100 PRINTTAB(2) "Insert working disc(s) 
1110 PRINT 

1120 PRINTTAB(2) "Press any key when rea 
dy" 

1130 key=GET 

1140 *DIR $ 

1150 REPEAT 

1160 CLS:PRINT'' 

1170 INPUTTAB(2) "Source filename"; infil 
e$ 

1180 PRINT 

1190 INPUTTAB(2)"Destination filename"; 
outfiles 

1200 PRINT 

1210 INPUTTAB(2) "Basic start number"; St 
Line$ 
1220 PRINT 
1230 PRINTTAB(2) "Insert PRINT or PRINTT 
AB (P/T)?" 
1240 REPEAT: a$=GET$:UNTIL INSTR("PT",a$ 
) 
1250 IF a$="T" tab%=TRUE ELSE tab$-FALS 
E 
1260 PRINT 
1270 sprefix$="":tnot=0 
1280 IF tab% INPUTTAB(2) "Number of spac 
es to TAB"; tno%:sprefix$="TAB("+STRS$ (tno 
$)+")" 

1290 CLS 

1300 PRINTTAB(1,2)"Setting up text in " 
jinfile$;" as" 
1310 PRINTTAB(1,4)"'EXEC' file ";outfil 
e$;" starting" 
1320 PRINTTAB(1, 6) "with instruction AUT 
O “#StLine$ 
1330 PRINTTAB(1,8) "with prefix PRINT";s 
prefix$ 
1340 PRINTTAB(8,14)"Execute (Y/N)?" 
1350 REPEAT 

1360 a$=GET$ 

1370 UNTIL INSTR("YN",a$) 

1380 UNTIL a$="Y" 

1390 ENDPROC 

1400 : 

1410 DEFPROCmovetext 

1420 ch1%=OPENIN(infile$) :ch2%=OPENOUT ( 
outfiles) 

1430 c$=CHR$ (13) :q$=CHRS (34) 
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1440 outext$="AUTO "+StLine$+c$ 

1450 PROCsend 

460 REPEAT: PROCread:UNTIL ASC (LEFTS (in 
text$,1))>31 

470 REPEAT 

1480 PROClspace:PROClen 

490 IF LEN(intext$)>0 outext$="PRINT"+ 
nprefix$+q$+intext$+q$+c$ ELSE outext$= 
"PRINT"+c$ 

500 PROCsend 

1510 PROCread 

1520 PRINT"."; 

1530 UNTIL EOF#ch1% 

1540 *CLOSE 

1550 ENDPROC 

1560 : 

570 DEFPROCclose 

1580 CLS 

1590 PRINTTAB(10,10)"All done!" 

600 VDU26 

1610 ENDPROC 

1620 : 

630 DEFPROCsend 

1640 FOR ct%=1 TO LEN(outexts) 

1650 BPUT#ch2%, ASC (MIDS (outext$, ct$) ) 
660 NEXT 

1670 ENDPROC 

680 : 

1690 DEFPROCread 


700 intext$="" 

1710 REPEAT 

1720 char=BGET#ch1% 

1730 IF NOT EOF#ch1% intext$=intext$+CH 
R$ (char) 

1740 UNTIL char=&0D OR EOF#ch1% 

1750 ENDPROC 

1760 : 

770 DEFPROClen 

780 REPEAT 

790 IF RIGHTS (intext$,1)<=CHR$(31) int 
ext$=LEFTS (intext$, LENintext$-1) 

1800 UNTIL RIGHTS (intext$,1)>CHRS$(31) O 
LEN(intext$) =0 

1810 ENDPROC 

1820 : 

1830 DEFPROC]space 

840 IF LEPTS(intext$,1)<>" " nprefix$= 
sprefix$:ENDPROC | 
1850 space%=0 

1860 REPEAT 

1870 intext$=RIGHTS (intext$,LENintext$- 


wm 


1 
880 space%=space$+1 

1890 UNTIL LEFTS (intext$,1)<>" n | 
1900 nprefix$="TAB("+STRS$ (tno%+space$) + | 


1910 ENDPROC 


512 Forum (continued from page 37) 


Here’s a chance to introduce a bit of 
culture into the Forum. Meta (pl. metae) 
is the Latin noun for a pillar or column, 
and in ancient Rome a stone column was 
used at each end of the circus in chariot 
racing to mark the turning point. In time 
‘meta’ came to be used in colloquial 
speech as a general term, meaning any 
turning point or point of change. 


Someone was being a bit subtle in 
naming the metafile therefore, since it's 
the file that allows one GEM application 
to read files created by another which 
stores data in a different format. It 
literally provides a sort of inter- 
application file exchange, permitting 
data files from one application, such as 
GEM Graph or Draw, to be read by 
another, such as Write. Each application 
stores its own data in the most efficient 
format for its own purposes, but for 
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export to a different application files are 
converted to “GEM files, the translation 
instructions for which are in the metafile. 


GEM Paint doesn’t need a metafile, the 
conversion is built into the program, and 
of course neither does GEM Write, so I 
can only suppose that the reason the 
metafile is supplied is the same as for the 
font files. 


We'll round off our look at GEM with 
some general pointers on how to set up 
the system for your particular needs, 
concentrating on memory usage. 
Including everything is impossible, 
especially in a standard memory 512, and 
GEM has one more trick up its sleeve to 
trap the unwary. To find out about that 
though, you'll have to wait for next 
month’s Forum. B 
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subject. 


In. Part, 1. of this 
article I described 
those pseudo-variables which relate to file 
handling. Still to come are those which 
hold the addresses of certain locations in 
the computer’s memory map (which 
simply means the division of the total 
memory into sections which the operating 
system allocates to various parts of the 
computer’s operation), and those which 
are concerned with time. We can easily fill 
this month’s article with a detailed 
examination of the first of these two 
groups, which consists of the pseudo- 
variables HIMEM, LOMEM and PAGE, 
and so I will postpone the description of 
TIME and TIME$ until next month. 


MEMORY MANAGEMENT 

An understanding of the functions of 
HIMEM and PAGE, and to a lesser extent 
LOMEM, can be crucial if you want to get 
the most out of your BBC micro. By 
altering their values, it is often possible to 
re-arrange the computer’s memory map in 
such a way that, for example, a program 
which would not previously run owing to 
lack of memory will now do so. Figure 1 
shows how these values fit into the 
memory map of the computer. 


PAGE 

PAGE holds the address of the lowest 
available location for user workspace. In 
practice this means the space available for 
programs, for the variables and other 
information they need while running, and for 
any data which they wish to process in 
memory. So if there is a program in memory, it 
will start at PAGE, or if you load a program it 
will load at PAGE. When you switch on your 
machine, the value of PAGE will be set by the 
operating system according to the model of 
computer and various other parameters. 


On an unexpanded model B, the default 
value of PAGE is &E00 if a cassette filing 
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Alan Wrigley continues his detailed look at the 


system is being used, or &1900 if you are 
using DFS. However, very few BBCs are 
unexpanded these days, and most have an 
assortment of sideways ROMs fitted. Some 
of these may need their own workspace, 
which is usually allocated by pushing up 
PAGE to make room, so it is not 
uncommon to find that PAGE is set to 
&1B00 or &1C00 on a DFS machine for 
example (I will ignore cassette-based 
computers from now on since not many of 
these remain in use). 


SCREEN MEMORY 


BASIC STACK 


&3000 (mode 0) 


VARIABLES/FREE SPACE 
&2243 (example) 


PROGRAM 


OS/DFS/LANGUAGE WORKSPACE 


Figure 1. Typical simplified memory map 
for a model B with DFS 


With only 32K of memory available in the 
first place, this is quite a large chunk to 
lose. If you are using a high resolution 
screen mode which eats up even more 
precious memory, serious problems can 
occur if you want to run anything other 
than a short program. However, all is not 
necessarily lost, since under some 
circumstances PAGE can be lowered 
considerably, and this is a technique which 
you will often find used with programs 
published in BEEBUG. 
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First Course 


Assuming your system sets PAGE to the 
default value of &1900, then all the extra 
memory from the &E00 of the original 
model is being claimed by the DFS. Some 
of this is used for buffers when reading 
and writing data to and from files, but 
unless more than one file is in use at the 
same time, much of this is unused and 
PAGE can be lowered, often down to 
&1200. With one data file open you can still 
reduce PAGE to &1400, and since few 
programs open more than one file at once 
this is usually a safe value to use. PAGE 
can be altered quite simply from the 
command line by typing: 
PAGE=&1400 
Note that PAGE always lies on a 256-byte 
boundary, so if you type for example: 
PAGE=&142C 

the lower byte will be ignored and the 
value will be set at &1400. 


AUTOMATIC MOVEDOWN 
If PAGE is going to be altered, it must be 
done before loading any program, since the 
program will always be loaded at the 
current setting of PAGE. This can be done 
from the command line, as described 
above, but a neater way is to arrange for 
the program to move itself down in 
memory after loading at the higher value 
of PAGE. This is done by adding what is 
known as a movedown routine, which 
should be appended to the start of the 
program in question, as in the following 
example: 
1 IF PAGE<&1401 THEN 10 

2 *KEYO FORA$-OTO(TOP-PAGE) STEP4: A$! &1400 

=A% ! PAGE: NEXT |MPAGE=&1400 | MOLD | MRUN |M 

3 *FX138,0,128 

4 END 
What this does is to check first (line 1) to 
see whether PAGE is already at &1400 or 
lower, and skips over the movedown 
routine if it is (it assumes that the program 
proper starts at line 10). Then function key 
0 is programmed with the commands to 
move the entire program from PAGE down 
to &1400, set PAGE to &1400, make Basic 
aware of the “new” program by issuing an 
OLD command, and finally to run it. 
Having done this, it puts key FO into the 
keyboard buffer in line 3 before quitting. 
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As soon as the Basic prompt appears, the 
keyboard buffer is scanned, the key found 
and expanded, and the commands 
executed. Note that the actual movedown 
is done 4 bytes at a time for greater speed 
(hence A%!&1400 rather than A% ?&1400). 


Provided that your program makes no disc 
accesses at all once loaded, it is possible to 
Squeeze even more memory out of the 
computer by switching off the DFS after 
loading, allowing a value of &E00 to be 
used for PAGE. To do this, use the 
following lines: 
1 IF PAGE<&E01 THEN 10 
2 *KEYO *TAPE|MFORA%=0TO(TOP-PAGE) STEP4: 
A$! GE00=A%! PAGE: NEXT | MPAGE=&E00 |MOLD|M 
RUN|M 
3 *FX138,0,128 
4 END 
In this case, the command *TAPE selects the 
cassette filing system before moving the 
program down and thus switches off DFS. 


If you have a Master, none of this will be 
necessary, since Acorn sensibly arranged 
for PAGE to be at &E00, moving the disc 
workspace elsewhere. Lowering PAGE 
below this value on a Master is likely to 
cause a crash, and is not recommended. 


It is worth noting in passing that on all 
models you can also raise PAGE if you 
want to give yourself some private 
workspace. I will be looking at the subject 
of how and why you might want to do this 
in a future First Course article. You could 
also have several different programs in 
memory all starting at different values of 
PAGE, and call one program from another 
simply by setting PAGE to the correct 
value followed by a RUN command. For 
example, you could type the following 
lines at the Basic prompt: 

PAGE=&1900 

LOAD" Progi" 

PAGE=&3000 

LOAD" Prog2" 

PAGE=&6000 

LOAD" Prog3" 
If you now reset PAGE to &1900 and type 
RUN, Prog1 will be run. If this program 
finishes with the lines: 
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First Course 


PAGE=&3000 
RUN 


then Prog2 will be run, and soton. You do 
have to be careful that each program plus 
the space it needs for variables does not 
overrun the next higher value of PAGE. 


HIMEM 

HIMEM looks after the other end of the 
user workspace, and holds the value of the 
highest location available plus one. By 
default this will be the start of screen 
memory for the current mode, and if you 
change screen mode HIMEM will 
automatically change too if necessary, as 
the amount of available memory shrinks or 
expands. However, if you are only using 
shadow modes (as are provided as 
standard on a Master and via add-on 
boards on a model B), then HIMEM will 
usually remain at &8000, which is the top 
of RAM. 


Lowering HIMEM is a very popular way 
of providing some private workspace to be 
used by a Basic program, or for a machine 
code utility. As I mentioned earlier, I will 
look at this subject in a future article. To set 
HIMEM to a different value, simply use a 
command such as: 
HIMEM=&7000 

Unlike PAGE, you can assign any value to 
HIMEM (i.e. it doesn’t have to be ona 
page boundary), though if it is over &8000 
it will be ignored and if it is below PAGE 
you will get an error. If you set HIMEM 
below the top of the current program, Basic 
will not be able to find the end of program 
marker and will generate a “Bad program” 
error if you try to list or run it. If HIMEM 
is set above the top of the program but still 
too low for variable storage when it is run, 
you will get a “No room” error on running 
the program. 


When a program is run, Basic stores certain 
information of its own on the Basic stack. 
This will contain such information as 
return addresses from functions and 
procedures. The Basic stack starts at 
HIMEM and works downwards, so it 
follows that you must not alter HIMEM 
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from within a procedure or function, or the 
program may crash when Basic next tries 
to pull an address off the stack. Also, there 
is no point in altering HIMEM before a 
mode change, since it will then revert to 
the normal value. In fact, the most sensible 
place to change HIMEM is at the start of 
the program, after you have set up the 
chosen screen mode. 


LOMEM 

Our final memory-related pseudo-variable, 
LOMEM, falls midway between the other 
two, and holds the address of the top of the 
current Basic program plus one. This is 
normally the same value as that returned 
by the Basic function TOP. However, you 
can assign a new value to LOMEM 
whereas TOP always returns the top of the 
program irrespective of the setting of 
LOMEM, and thus does not change unless 
you edit the program. 


LOMEM is used by Basic to indicate the 
first address available for variable storage 
when the program is run, so by assigning a 
new value it is possible to create private 
workspace between TOP and LOMEM. 
This is not often used, since there are 
usually simpler ways of achieving this (for 
example by altering PAGE or HIMEM as 
we have seen). However, one way to make 
use of it would be to tack a piece of 
machine code or a data block onto the end 
of a Basic program and save the program 
with *Save. A typical command to do this 
would be: 

OSCLI ("Save MyProg 1900 "+STRS$~(TOP+len%) 

+" 8023" 
where len% is the length of the data block 
and PAGE is at &1900. OSCLI is used here 
because the direct *Save command cannot 
contain variables. When it is loaded again 
(using either LOAD or *Load), the extra 
section will be loaded too, and if the 
program sets LOMEM as soon as it is run, 
the data will be protected from 
overwriting. 


Next month as promised I will conclude 


my look at pseudo-variables by 
considering the subject of timekeeping. 
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Continuing the selection of procedures 
from R.W.Smith, we look at different 
ways of formatting text and numbers for 
output to a printer. Procedure 17 uses 
the internal clock and will only work 
correctly if one is installed. You will note 
that there is also some reference to 


by R.W.Smith 


Function/Procedure Library (9) 


procedures that will appear in the next 
issue. v 


Once again the routines use variables 
with the less common characters to 
avoid the use of LOCAL variables and 
any clashes with your own program. 


THE FUNCTION/PROCEDURE LIBRARY (PART 9) 


Routine 16: Epson Printer Set up 


Routine. 
Type: PROCEDURE 
Syntax: PROCptrset 
Purpose: To set a numeric date in 


variable DAT and a user 
number in USN% (see 
Routine 27). To set the line 
count variable In% at its 
initial setting. To clear the 
print line variable line$ and 
the header array HD$(4). To 
clear the printer of any 
previous settings. 
Parameters: None 
Notes: Applicable to any 
Epson compatible printer. 
Note 
that the initial variable 
settings are used in other 
printer routines. 


Related: FNrdat 


Example: 
10 PROCptrset 


Routine 17: Print Line Routine with 
Page Headings. 


Type: PROCEDURE 

Syntax: PROCpline(N$) 

Purpose: To print the line held in the 
string N$ but if the line 
count is under 1 a new page 
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will be started first. If the 
line count is less than 1 or 
over 70 a line is printed 
giving the program name or 
other title which has been 
placed in title$. This is 
followed by the date and 
time from the Master’s 
clock and the user number. 
The line count variable is 
then reset for 60 lines of 
print. If any headings have 
been placed in the string 
array, HD$(4), then these are 
printed out under the title 
line. 
Parameters: N$ is a string holding the 
data to be printed. A null 
string will cause a line feed 
to occur. i 
The routine is based on a 66 
line continuous paper being 
used. This can be changed 
by altering the value in the 
line count variable. A form 
feed can be enforced at any 
time by setting the line 
count as zero. The line 
count is set at a value 
exceeding 70 in Routine 16 
to cause the title and 
headings to be printed on 


Notes: 
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the first page without a form 
feed. 


Related: PROCpln 


Example: 
10 PROCpline("") 
20 PROCpline("This is the day of the 
party") 
30 NS="This is the second line" 
: PROCp1] ine (NS) 


Routine 18: Print Line Routine. 


Type: PROCEDURE 
Syntax: PROCpIn(N$) 
Purpose: To print out a string which 


is not null, with automatic 
output of the VDU 1 
command to cut out the 
screen. To execute a line feed 
and decrement the line 
count variable In% byl. 
Parameters: N$ is the string to be 


printed. 
Example: 
10 NS= "This is the Day of the 
Party" : PROCpln (N$) 


20 PROCpln("This is the Second Line") 
30 PROCp1n("") 


Routine 19: Print Format Routine. 


Type: FUNCTION 
Syntax: line$=FNpformat(N,N%,N$) 
Purpose: To convert numeric data 


into a string for printing in a 
uniform pattern. 
Parameters: N is the value to be printed 
or variable in which it is 
held. 
N% is the maximum 
number of digits to be 
printed. If a zero value is to 
be printed as spaces then 50 
is added. N$ is a code 
character indicating the type 
of numeric: 
*D is a date to be printed in 
format DD/MM/YY. 
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*I is an integer. 

*N is a real number. 

*V is a sterling value to be 
printed as ####.DD. 

*1 to 5 is a decimal amount 
held as an integer but to be 
printed with the code 
number of decimal places. 
The string returned is 
increased from the 
maximum number of digits 
by one for decimal amounts. 
Leading zeros are printed as 
spaces. A date is always 
returned as a string of 8 
characters. 

Used in Routine 20. 


Notes: 


Related: 


Example: 
10 DATES =FNpformat (121290,6,"D"): 
DATE2$=FNpformat (DATS, 6, "D") 
20 INTEGER$=FNpformat (1234567,8,"I"): 
INT2$=(A%,7,"I") 
30 NUMBERS=FNpformat (123.456,8,"N"): 
NUM2$=FNpformat (A, 6, "N") 
40 VALUES=FNpformat (123.45,8,"V"): 
VAL2$=FNpformat (PRICE%, 6, "V") 
50 FACTORS=FNpformat (123456789,10,"3"): 
FAC2$=FNpformat (A%, 10, "3") 


Routine 20: Print Using Routine. 


Type: PROCEDURE 
Syntax: PROCpfm(N%,N$) 
Purpose: To set up standard lines of 


print in line$. 
Parameters: N% is a line format number. 
Up to nine formats may be 
used in a program. N$ is a 
string or a string variable 
holding the format data 
source. 
Each line format is held ina 
string variable of which the 
first two characters of the 
name are FM. This is 
followed by the format 
number, for example FM1$. 
Within the program the 
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format must be constructed 
as the contents of the format 
variable. For each item on 
the line, there is a type 
character: 

*A for a string. 

*N, L V or numbers 1 to 5 
for numeric data as stated in 
Routine 19. 

*D for a Date as DD/MM/YY. 
*S for spaces. 

The type character is 
followed by two digits being 
the maximum space to be 
allowed for the item. Note 
that this is increased by 50 
when leading zeros are to be 
printed as spaces. The end 
of string is shown by “X00”. 
FM1$=”A30S02109S01V5930 
9D06X00” would construct a 
line of30 characters from a 
text variable, followed by 2 
spaces and then an integer 
of 9 characters, one space, a 
sterling value of 10 
characters (with spaces if 
zero), a decimal number of 3 
decimal places held in an 
integer variable, and then a 
date in numeric form. The 
parameter N$ in the 
procedure call will be 
constructed of the strings, 
values or variables in which 
the data to be printed is 
held. These must equate 
with the format string. 

All format items of type A 
will have a string or string 
variable and numeric items 
will have corresponding 
dataor a data source. The 
character “|” is used as a 
divisor. To print a line in 

the above example the format 
would be: 


Related: 


Example: 


PROCpfm(1, "NAMES | NUMBER% | WAGE 
| PERCENTS | BIRTHD$") :PROCpline 
The line is set up to present 
a tabular printout by 
making each item a set 
length. Text is extended by 
spaces after the text and 
numeric data by spaces 
before the value. 
PROCalph, PROCspc, 
PROCnum are subsidiary 
procedures. 

PROCpline prints out the 
contents of the line string 
variable line$ in which the 
construct is made. 


10 FM2$="A30S02109S01V59309D06X00" 

20 PROCpf£m(2, "NMS |NO% | WAGES | ECS | BDAY" ) 

30 PROCpline 
EE 
Routine 21: Insert text into print line. 


Type: 
Syntax: 
Purpose: 


PROCEDURE 

PROCalph 

To get the text data source 
from the parameter N$ in 
Routine 20. To extract the 
text data from the source. To 
lengthen or restrict it to the 
number of characters in 
variable FMx$. The text is 
then added to the line 
construct variable line$. 


Parameters: None. 


Notes: 
Related: 


Example: 


Integral to Routine 20. 
Used by Routine 20. 
Uses PROCpsr and FNgt. 


10 IF _#$="A" then PROCalph 


Routine 22: Insert spaces into print line. 


Type: 
Syntax: 
Purpose: 


PROCEDURE 

PROCspc 

To insert spaces into a print 
line as defined in the format 
variable. 
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Parameters: None. 


Notes: Integral to Routine 20. 
Related: Used by routine 20. 
Example: 


10 IF _#$ ="S" then PROCSpc 


Routine 23: Insert numerical data into 
a print line. 


Type: PROCEDURE 
Syntax: PROCnum 
Purpose: To get the source of the 


numerical data from the 
format variable. To pass the 
source to FNpformat 
(Routine 19) t...ogether with 
the numeric data and 
number of digits. To insert 
the constructed text data 
into the print line. 
Parameters: None. 


Notes: Integral to Routine 20. 
Related: Used by Routine 20. 

Uses FNpsr and FNgt. 
Example: 


10 IF X$="N" OR X$="I" OR XS="V" OR 
X$="D" OR VAL(X$)>0 THEN PROCnum 


Routine 24: Get Data Source from 


Variable. 

Type: FUNCTION 

Syntax: FNgt 

Purpose: To extract the source of data 
from the parameter N$ in 
Routine 20. 

Parameters: None. 

Notes: Integral to Routine 20. 

Related: Routine 20 

Example: 

10 NS=FNgt 


29410 REM Epson Printer Set up Routine 
29420 : 

29430 DEF PROCptrset :DAT=FNrdat :1n$-200: 
line$="" 

29440 FOR _%=0 TO 4:HDS(_%)="":NEXT 
29450 VDU2,1,27,1, 64,3 

29460 ENDPROC 

29470 : 

29480 REM Printer Line Routine with Page 
Headings 

29490 : 

29500 DEF PROCplinel(. $) 

29510 IF In% < 1 THEN VDU2,1,12,3 

29520 IF ln% >0 AND In%< 70 THEN PROCpln 
(_$) :ENDPROC 

29530 PROCp1n (CHRS14+title$+CHR$20+" -- 
"+LEFTS (TIMES, 21) "User "+STRS (USNS) ) 
29540 1n%=60:PROCpl1n("") 

29550 FOR£%=0T04:IF LENHD$(£%)>0 PROCpln 
(HDS (£%) ) 

29560 NEXT: PROCp1n(_$) 

29570 ENDPROC 

29580 : 

29590 REM Print Line Routine. 

29600 : 

29610 DEF PROCpln(_$) :VDU2 


[29620 IF LEN(_$)>0 THEN FOR_$=1TOLEN(_S) 
:VDU1, ASC (MID$ (_$,_%,1)) :NEXT 

29630 VDU1,13,1,10,3: In$-1n$-1 

29640 ENDPROC 

29650 : 

29660 REM Print Format Routine 

29670 : 

29680 DEF FNpformat (£_, _%, _$) 

29690 IF $="N" _%= %+1 

29700 £$=STRING$(_% MOD50," ") 

29710 IF £ -0 AND _%>50 THEN =£S+" " 
29720 _%=_%MOD50 : £S=RIGHTS (£$+STRS (£_) 
+S) 

29730 IF _S="D" THEN =LEFTS(£$,LEN(£$) -4 
)+"/"4MID$ (£$, LEN(£$) -3, 2)+"/"+MID$ (£$, L 
EN(£$)-1,2) 

29740 IF_S="I" OR _$="N" THEN =£$ | 
29750 IF_$="V" __%=2 ELSE __%=VAL(_$):1 
F __%<1 THEN =STRINGS (_%,"?") 
29760 IF  $SLEN(STRS(£ )) THEN £$=LEFTS 
(£$,LEN(£$)-__%) +RIGHTS (STRINGS (__%, "0" 

) + RIGHTS (£$,LEN(STR$(£_))),__%) | 
29770 =LEFT$ (£$, $- $) + "." + RIGHT$(£ 
ELS) 

29780 : 

29790 REM Print Using Routine 
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29800 : 

29810 REM Format String Translation 
29820 : 

29830 DEF PROCpf£m(_%,_$) 

29840 lineS="":£%=-2: £$-1 

29850 $&B00=EVAL ("FM"+STRS (_%)+"5")+CHRS$ 
13 

29860 REPEAT 

29870 £%=£%+3 :_£$=MIDS$ ($&B00, £3, 1) 
29880 _%=VAL (MIDS ($&B00, £%+1, 2) ) 
29890 IF £$- "A" PROCalph 

29900 IF_£S= "S" PROCspc 

29910 IF £$-"D" OR_£S="N" OR AE STE OR 
_£$="V" OR (VAL(_£$)>0) THEN PROCnum 
29920 UNTIL _£$="x" 

29930 ENDPROC 

29940 : 

29950 REM Insert Text String 

29960 : 

29970 DEF PROCalph 

29980  S$-FNat 

29990 lineS=line$+FNpsr (EVAL(__$),_%) 
30000 ENDPROC 

30010 : 


30020 REM Insert Spaces 

30030 : 

30040 DEF PROCspc 

30050 line$=line$+STRINGS(_%,"_ ") 

30060 ENDPROC 

30070 : 

30080 REM Insert A Number 

30090 : 

30100 REM Error Routine 

30110 DEF .PROCnum:__$=FNgt 

30120 line$=lineS + RIGHTS (STRINGS (_%MOD 
50," ")+FNpformat (EVAL(__$),_%-1,_£$),_% | 
MOD50) 

30130 ENDPROC 
30140 : | 
30150 REM Get Data Source 
30160 : 

30170 DEF FNgt 
30180 REPEAT : 
$+1 

30190 IF ££$ <> "|" THEN $- $+££S 
30200 UNTIL ££$="|" OR _£%>LEN(_S) : =_ 
$ 
30210 : 


: — $=" n 
EESMIDS( $, 66.1: ESE | 


=) 


BEEBUG Education (continued from page 19) 


Average reading skills are required. This 
should be borne in mind by teachers when 
selecting groups to take part. 


There is a paper ‘diary’ which comes with 
the software and in which the participants 
are to log all the relevant details as the 
simulation proceeds - including some of 
the data provided by the computer - as if it 
had been gathered raw from the real life 
situation. 


Breaking down events into sections makes 
for that so useful activity, discussion away 
from the computer itself. Similarly 
valuable is the fact that the feedback is 
positive and encouragement is given 
where appropriate. The parameters used to 
reward and deduct ‘points’ seem to be well 
thought out and sensibly arrived at. 
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So, this intriguing product has a stable feel 
to it, is easy to use, well documented and 
has many applications: as software 
designed to enhance and encourage 
communication skills, evaluation of data, 
methodical decision making, some 
understanding of social issues and even 
geographical ones. 


It forms part of a wider series of ‘dramas’, 
aimed at the primary and lower secondary 
ages; other scenarios in the series range 
from ancient (Greece) and more recent 
(Hereward, Castles and Vikings) history, 
through road safety and purely 
mathematical microworlds. 


On the strength of Auntie's Gift Shop, and at 
this sort of price, they would make a 
worthy addition to your school’s software 
library. B 


Beebug March 1992 


SE E EE EE. AE EN AN ee. 


Mikro@uote (2) 


Mike Bryant puts the finishing touches to his guotation printer. 


Continuing from last month, this is the 
last part of MikroQuote, which contains 
the Print and Oscli options, and the 
graphics for the opening screen. To type in 
this month's listing, either load in last 
month's listing, then type this one in on 
top, or type in this listing on its own, and 
*SPOOL then *EXEC it to merge it into last 
month’s. Do not renumber the program 
until you have checked that it is working. 
The functions added this month are 
explained below. 


Memory status: 
free for program 
free for record data 
used for record data 


The main menu 


The Print option allows you to specify: 1. 
The title which will be printed at the top of 
the first page of the quotation. 2. The 
width of printout you want in characters. 
3. The length of each page of printout you 
want in lines. Note that when printing, 
only the items which have a Total column 
greater than zero will be printed. Thus, 
you can set up a template quotation form 
and just fill in the numbers for each 
customer - those items for which none are 
ordered are not printed. 


The Oscli option allows you to enter 
operating system commands such as *CAT 
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and *DRIVE. It will not, however, let you 
*COMPACT or *COPY since these 
commands may corrupt the MikroQuote 
program in memory. 


HOW IT WORKS 


The Print option, which may seem 
somewhat roundabout at first, assembles 
each line of output in memory, and then 
prints the whole lot out, one line at a time. 
By doing it this way it has to work out 
things such as rounding off to 2 decimal 
places and printing numbers so that they 
are right-justified. This is all due to the 
anomalies of using @% to format numbers 
when using strings (the tab stops are 
altered if strings are placed before them), 
and by my determination for the user to be 
able to change the page width at will. I 
tried different methods but this one is the 
most clean-cut and direct. It also partially 
gets around the problem which Basic has 
of storing, for example, 6.2 as 6.1999999. 


Qty. Unit Cost Total 


BRICKS 1000 BRI 2.00 2000.00 
MORTAR 20 TON 50.00 1000.00 
DAFFS 6 - 9.90 9.00 


An example quotation 


Those of you that have the subscription 
disc will find an enhanced version of 
MikroQuote which uses a machine code 
routine to print the title. 


49 


Mikro@uote 


10 REM Program MikroQuote 

20 REM Version 38 PART 2 

30 REM Author M.A.Bryant 

40 REM BEEBUG March 1992 

45 REM Program subject to copyright 

120 RESTORE 4030 

130 FOR I%=0 TO 3 

140 PRINTTAB(4,I%); 

150 REPEAT 

160 READ A% 

170 VDUA% 

180 UNTILA$=0 

190 NEXT 

250 PRINTTAB(3,15) "Memory status:" 

260 PRINTTAB(4)"free for program ", (H 
IMEM-!2 AND &FFFF)/1024;" K" 

270 PRINTTAB(4)"free for record data", 
(&7C00-!&5000 AND &FFFF)/1024;" K" 

280 PRINTTAB(4)"used for record data", 
((165000 AND &FFFF)-&5000) /&2C00*100;" % 

340 IF H%=4 THEN PROC_Print 

350 IF H%=5 THEN PROC_Oscli 

840 DEF PROC_Print 

850 LOCAL A%,1%,L%,S%,T% : PROC_Clear 

860 REM L%=line, S¢=subtotal, T$=total 

870 title$=FN_InputPrompt (0,6, "Enter d 
ocument title : ",titles) 

880 width’=VAL (FN_Input Prompt (0,VPOS, * 
Enter paper width (characters) : ",STRS( 
width$))) 

890 length$=VAL(FN_InputPrompt (0, VPOS, 
“Enter paper length (lines) : ",STR$(len 
gth+5)))-5 

900 PRINT'"Set up paper, then press an 
y key"'"to start printing." : IFGET 

910 PRINT'CHRS136CHRS$129TAB(12) "Printi 
ng" 

920. PROC_PrintWindow : WIDTH width$ 

930 VDU2 

940 PRINT'TAB((width$-LENtitle$) /2)tit 
le$ 

950 PRINTTAB( (width%-LENtitle$)/2)STRI 
NG$(LENtitle$,*=")'' 

960 PROC_PrintHeader 

970 L%=7 : RESTORE 3830 : READ B% 

980 FOR I%=1 TO B% 

990 A$-IFN Main(IS) 

1000 IF A&<(HIMEM+&100) OR A%>&7C00 OR 
FN_AllItemsZero(A%) THEN GOTO 1130 

1010 IF L%>length$-10 THEN PROC_NewPage 
(width’) 

1020 READ AS : PRINT'AS : L$=L3+2 


1030 REPEAT 

1040 IF A%>(HIMEM+&FF) AND ! (A%+8)>0 TH 
EN PROC_PrintItem(A$) 

1050 IF L%>lengtht-5 THEN PROC_NewPage( 
width?) 

1060 St=S%+! (ASB) *! (AS+16) 

1070 A%=!A% 

1080 UNTIL A%<(HIMEM+&100) 

1090 PRINT*TOtal for "A$;TAB(width$-10) 
TIP 
1100 A$=FN_Real2String(S%/100) 
1110 PRINTTAB (width$-LENAS) AS 
1120 L%=L%+1 : T%=T%+5% : S$-0 
1130 NEXT 
1140 PRINT''"Total for "title$;TAB(widt 
h$-10) "#"; 
1150 A$-FN Real2String (T%/100) 
1160 PRINTTAB (width$-LENAS) AS 
1170 VDU3,26 : WIDTH 0 
1180 ENDPROC 
1190 : 

1200 DEF PROC_PrintItem (A$) 

1210 LOCAL 1%,P%,A$ : DIM P% width% 
1220 SP$-STRINGS (Width$, CHR$32) 

1230 AS=LEFTS ($(A%+20) , width$-30) 

1240 $P%=A$ 

1250 AS=STR$(! (A%+8) ) 

1260 $(P%+width%-25-LENAS) =AS 

1270 AS=$ (A$+12) 

1280 $(P%+width$-20-LENAS) =AS 

1290 A$=FN_Real2String/(! (A%+16) /100) 
1300 $(P%+width-10-LENAS) AS 

1310 AS=FN_Real2String(! (A$+8)*! (A%+16) 
/100) 

1320 $(P%+width-LENAS ) =AS 

1330 FOR I%=0 TO width$-1 
1340 IF ?(P%+I%)=13 THEN ?(P%+I$%) =32 
1350 NEXT 
1360 ?(P$+I%)=13 
1370 PRINT $P% 
1380 L%=L%+1 
1390 ENDPROC 
1400 : 
1410 DEF PROC_PrintHeader 
420 PRINTTAB( (Width$-33) /2) "Item"TAB(w 
idth$-29) "Qty. Unit Cost Total" 
1430 PRINTSTRINGS (width$,"_")' 

1440 ENDPROC 

1450 : 

1460 DEF FN_Real2String(A) 

1470 LOCAL B%,N%,AS$ 

1480 IF A<0 N$-TRUE : A=ABS(A) 

continued on page 52 
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Wordwise User’s Notebook: 
Sounding Off (2) 


By Chris Robbins 


PLAYING WITH ENVELOPES 

For those who want to make even more 
complicated sounds, but without using lots 
of WW+ code, there’s always the regular 
ENVELOPE command. Although this can’t 
be used directly from WW++ it’s possible to 
set up sound envelopes from Basic, and then 
use them in WW+-. For example, in Basic: 


ENVELOPE 1,2,4,-4,4,10,20,10,127,0 
10; 126,126 


sets up envelope number 1 with what I can 
only describe as a sort of one-off cartoon 
‘bouncy’ sound. 


In WW+ this can be played by: 


*FX212,0 (selects envelope 1, really!) 
VDU7 (produces sound) 


If it’s to be played several times in quick 
succession, just increase the duration with 
*FX214 as I’ve described previously. 


The command format for selecting the 
required envelope is *FX212,n where n is 
given by (envelope number - 1)*8. This is 
somewhat less than obvious, but all it really 
means is that the envelopes numbered 
1,2,3,... etc. are called by n=0,8,16,... etc. 


SOUND EFFECTS IN TEXT 

To make things even easier, use an EXEC file 
to set up the required envelopes prior to 
entering WW+. For example, the file could 
contain the following few lines of code to 
define envelopes 1 to 6: 


REM Envelope definitions 1-6 
REM 
ENVELOPE 1,1, 


N 


The envelopes could then be set up from 
Basic by typing *EXEC filename, and 
subsequently selected from WW+ by means 
of a segment program, or indeed 
individually in WW Menu mode to change 
the user prompt sound as explained above. 
From WW+, for example: 


REM A startling and mysterious sound! 
REM 

REM Envelope 5 
*FX212,32 

REM Set bell channel 3 
*FX211,3 

REM Sound bell 

VDU7 

REM Envelope 4 
*FX212,24 

REM Set bell channel 2 
FXII 2 

VDU7 

REM Envelope 3 
*FX212,16 

REM Set bell channel 1 
Rexel T 

VDU7 

REM Envelope 2 
*FX212,8 

REM Set bell channel 0 
*FX211,0 

VDU7 


This uses all four sound channels and 
envelopes 2 to 5. To my mind the effect 
produced is both startling and a bit eerie. 
The code can be executed in the usual way 
by pressing Shift-fn, where fn is the 
function key that selects the appropriate 
segment, or by embedding a command at 
the appropriate point in the text so that 


,4,10,20,10,127,0,0,-5,126,126 
,10,20,10,127,0,0,-5,126,126 
,10,20,10,127,0,0,-5,126,126 
,-4,4,10,20,10,127,0,0,-5,126,126 
ENVELOPE 5,16,4,-4,4,10,20,10,127,0,0,-5, 126, 126 
ENVELOPE 6,2,2,0,-2,20,30,20,127,0,0,-5,126,126 


1,4 it’s automatically executed when the text 
ENVELOPE 2,2,4 is previewed. 
ENVELOPE 3,4,4, 
4 


ENVELOPE 4,8, 


1 


-4,4 
AA 
-4,4 
-4,4 


For example: 


“... the old dark house creaked and 
groaned softly to itself. The wind 
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moaned fitfully round the chimney. 
f1SEGnf2 Suddenly ....!” 


where f1 and f2 represent the embedded 
command delimiters, and n is the number 
of the segment containing the sound effect 
code. Using this approach, and some 
ingenuity, a story complete with sound 
effects could be written, although it would 
be a good idea to include code to pause the 
scrolling during the sound effects. 


Although designing sound envelopes is 
definitely an acquired skill, the ENVELOPE 
feature does allow up to 16 complex sound 
shapes to be set up. But beware, using 
envelopes can also corrupt the WW+ count 
of free variable space, leading to spurious 
“No Room” error messages. However, this 
is easily corrected by issuing a :NEW 
command on entry to WW+. 


While still on the subject of envelopes, 
BEEBUG Vol.10 No.5 (October 1991) 


contains some handy suggestions in that 
issue’s instalment of the BEEBUG 
Function/Procedure library. 


TIDYING UP 

Incidentally, playing around with the sound 
is sure to leave your system in an interesting, 
if uncertain, condition. It’s a good idea to 
reset everything to normal before trying any 
new sound effects. The following will do just 
that: 


*FX211,3 (default channel) 
*FX212,144 (default amplitude) 
*FX213,100 (default pitch) 
*FX214,7 (default duration) 


What I’ve described is but the merest 
whisper compared to the vast range of 
sound effects that can be produced. What 
you can achieve is limited only by your 
imagination and ingenuity. So why not add 
an extra dimension to your WW+ programs 
and Sound Off? 3 


MikroQuote (continued from page 50) 


[ 1490 AS=STR$ (A+. 005) 

1500 B%=INSTR(A$,".") 

1510 IF B%>0 A$=LEFT$ (A$,B%+2) 
1520 IF N% AS="-"+AS 

1530 =A$ 

1540 : 

1550 DEF PROC_Oscli 

1560 LOCAL A$ 

570 PROC_OscliWindow : CLS : 
1580 REPEAT 

1590 INPUT"*"A$ 

1600 IF LEFT$(A$,2)<>"CO" THEN OSCLI (A$ 


PRINT''' 


) 
610 UNTILA$="" 

620 ENDPROC 

1630 : 

2330 DEF PROC_NewPage (WS) 

2340 REPEAT 

2350 PRINT 

2360 L%=L%+1 

2370 UNTIL L%=length$-1 

2380 PRINTTAB(W$-10) * [Cont 'd...* 


2390 VDU3,7 : PRINT''CHRS$130"Paper! (Pr 
ess any key when ready)" : IFGET : VDU2 
2400 PROC_PrintHeader : L%=3 


2410 ENDPROC 

2420 : 

3380 DEF PROC. PrintWindow:VDU28,0,22,39 
,15:ENDPROC 

3390 : 

3400 DEF PROC_OscliWindow: VDU28,0,22,39 
ı 4: ENDPROC 

3410 : 

4010 : 

4020 REM "MikroQuote" graphics data... 
4030 DATA147,235,253,240,254,183,224,16 
0,181,160,160,160,160,160,160,160,254, 16 
7,239,180, 160,160,160,160,160,160,232,0 
4040 DATA147,234,181,163,234,181,232,16 
0,189,185,234,166,169,182,163,180,255,16 
8,250,181,234,160,181,182,163,180,235,1 
1,246,185,0 
4050 DATA147,174,173,160,174,173,171,16 
6,167,172,171,160,160,169,172,169,171,17 
3,167,173,163,172,173, 169,172,169, 166,16 
6,169,172,0 
4060 DATA145,175,175,175,175,175,175,17 
TO 115; MISS 115175 TE 0 LEE 
PUL, LO peso WEG NS, 17 
+275,175,0 B 
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1640 playfield% (H%,V%,L%)=-1:NEXT:NEXT: 
NEXT 

1650 ENDPROC 

1660 : 

1670 DEFPROCscratch 

1680 FOR H%=1 TO 12:FOR V$-1 TO 12:play 
field%(H%, V%, 9) --1:NEXT, : ENDPROC 

1690 : 2 

1700 DEFPROCcopy (source$,destination$) 

1710 FOR H$-1 TO 12:FOR V$-1 TO 12 

1720 playfield% (H%,V%, destination’) =pla 
yfield$ (HS. V$, source’) :NEXT, 

1730 nblocks$-0:FOR H$-1 TO 7:nblocks%= 
nblocks%+type% (H$, source$) :type$ (H$, dest 
ination$) -type$ (H$, source$) :NEXT:ENDPROC 

1740 : 

1750 DEFPROCfile(file$,W%) 

1760 CLS:IF W% PRINTTAB(13, 12) "Loading 
Data" ELSE PRINTTAB(13,12) "Saving Data" 

1770 IF W% PROCfill 

1780 IF W% in$-OPENIN(file$) ELSE in%=0 
PENOUT (file$) 

1790 IF in$-0 PRINT ''TAB(12)"File Not 
Found": IF GET:ENDPROC 
1800 FOR H$-0 TO 4:IF W% INPUT#in%, hiS( 
HS) ,hi$ (H$) ELSE PRINT#in%,hi$(H%) ,hi%(H 
% 


1810 NEXT 

1820 FOR L%=1 TO 8:FOR A$-0 TO 7 

1830 IF W% INPUT#in%, types (A%,L%) ELSE 
PRINT#in%, type% (A%, L$) 

1840 NEXT 

1850 FOR A$-0 TO 7 

1860 IF type%(A%,L%)>0 PROCdata 

1870 NEXT 

1880 NEXT:CLOSE#in% : ENDPROC 

1890 : 

1900 DEFPROCdata 

1910 IF W% FOR B%=1 TO type%(A%,L%) : INP 
UT#in%, X$, YR :playfield$ (X%, Y%, L%) =A: NEX 
T: ENDPROC 

1920 FOR X$-1 TO 12:FOR Y$-1 TO 12:IF p 
layfield% (x%, Y%,L%) -A$ PRINT#in%, X%, Y% 
1930 NEXT, :ENDPROC 

1940 : 

1950 DEFPROCcursor (CX%, CY%, L$) 

1960 VDUS:MOVE 64+64*CX%, 1020-64*CYS 


1970 GCOL 3,1:VDU236,8, 10,237 

1980 VDU4:ENDPROC 

1990 : 

2000 DEFPROCshow(show’) :CLS 

2010 FOR H$-1 TO 12:FOR V%=1 TO 12 

2020 COLOUR coldat% (playfield (H%,V%, sh 
ows) +2) : PRINTTAB (H$+1, V$*2) ;CHRS (240+pla 
yfield%(H%,V%, show’) *2) ; TAB (H%+1, V$*241) 
;CHRS (241+playfield% (H%, V%, show) *2) 
2030 NEXT 

2040 GCOL0,3:MOVE 120,964:DRAW 900,964: 
DRAW 900,190:DRAW 120,190:DRAW 120,964 
2050 ENDPROC 

2060 : 

2070 DEFPROCdrop (P%, 0%) 

2080 drop-FALSE:dropno$-0 

2090 FOR A$-P$-(P$c1) TO Q%+(Q%>12) 

2100 drop2-FALSE:B$-11:REPEAT 

2110 IF B%<13 IF A%<13 IF playfield%(A% 
,B%,0)=0 AND playfield$ (A$, B%-1,0)>0 THE 
N drop2=TRUE: playfield’ (A%, B$, 0) =playfie 
1d% (A%, B-1, 0) :playfield%(A%, B%-1,0)=0:P 
ROCseedrop (A%, B$) :B$-B$42 

2120 B$-B$-1:UNTIL B$-1 

2130 IF drop2 dropno%=dropno%+1 

2140 NEXT: IF dropno%>0 drop=TRUE 

2150 ENDPROC 

2160 : 

2170 DEFPROCscrub (P%, 0%, U%, V3) 

2180 scrub=FALSE 

2190 FOR A$-P$ TO Q%:FOR B$-U$ TO V% 
2200 left%=0:right%=0:centre$=0:IF (A%> 
0 AND A$c13) AND (B%>0 AND B%<13) check% 
=playfield%(A%,B%,0) ELSE check$-0 

2210 IF check$-0 centre%=FNcount (A$, BS, 
check’) : left $=FNcount (A$-1, B$, check$) :ri 
ght $=FNcount (A%+1,B%, check$) 

2220 gopos%=0:IF check%>0 AND left%>cen 
tre$ gopos%=-1 

2230 IF check%>0 AND right%>centre% gop 
ost=1 

2240 IF check%>0 AND left%+centre$+righ 
t%>0 AND centre%>0 scrub=TRUE: PROCzap (A% 
+gopos%, B%, check%) 

2250 NEXT, :ENDPROC 

2260 : 

2270 DEFPROCzap (ZX%, ZY%, ZB%) 
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2280 IF playfield% (ZX%,ZY%,0)<1 ENDPROC 

2290 IF ZX%>1 IF playfield%(Zx%-1, ZY%, 0 
)-ZB$ playfield’ (ZX$-1, ZY%, 0) =0 :PROCgo(Z 
X$-1, ZY) 

2300 IF ZX%<12 IF playfield$ (ZX$r1, ZY%, 
0)=ZB% playfield’ (ZX$41, ZY%, 0) =0 : PROCgo ( 
ZX%+1, ZY%) 

2310 IF ZY%<12 IF playfield$(Zx%, ZY$+1, 
0)-ZB$ playfield% (ZX$, ZY$+1, 0) =0: PROCgo ( 
ZX%, ZY$+1) 

2320 IF playfield% (ZX$, ZY%, 0)=ZB% playf 
ield$ (ZX$, ZY%, 0) =0 : PROCgo (ZX%, ZY$) 

2330 PROCscore : ENDPROC 

2340 : 

2350 DEFFNcount (CX$, CY$, CB%) :count$=0 

2360 IF CX%>0 IF playfield% (CX$-1,CY$,0 
)=CB% count%=count$+1 

2370 IF CX%<12 IF playfield%(Cx%+1, CY, 
0)-CB$ count$=count$+1 

2380 IF CY$c12 IF playfield%(Cx%, CY$+1, 
0)=CB% count$=count$+1 

2390 -count$* (1+ (playfield% (Cx%, CY%, 0)< 
1)) 

2400 : 

2410 DEFPROCmove 

2420 PROCcursor (GX$, GYS, 0) :G$=GET 

2430 PROCcursor (GX%, GY%, 0) 

2440 IF G$=81 OR G$-113 ret ry%=TRUE: END 
PROC 

2450 IF G$-90 AND FNfeasible(-1) PROCsh 
ove(-1) :ENDPROC 

2460 IF G$-88 AND FNfeasible(1) PROCsho 
ve (1) :ENDPROC 

2470 IF G$-136 GX%=GX%+ (GX$>1) 

2480 IF G$-137 GX%=GX$- (GX%<12) 

2490 IF G$-138 GY$-GY$- (GY$<12) 

2500 IF G$-139 GY$=GY%+ (GY$>1) 

2510 ENDPROC 

2520": 

2530 DEFPROCshove (dir$) 

2540 PRINTTAB(GX3+1,GY$*2) ;" ";CHRS10;C 
HRS8;" " 

2550 COLOUR coldat%(playfield% (Gx%, GYS, 
0)+2) : PRINTTAB (GX%+dir%+1,GY%$*2) ;CHRS (24 
0+playfield% (GX$, GY$, 0) *2) ;CHRS10;CHRS8; 
CHRS (241+playfield$ (Gx%, GYS, 0) *2) 

2560 playfield’ (Gx%+dir%,GY%,0)=playfie 


1d% (GX%, GYS, 0) :playfield% (Gx%, Gy$, 0) =0 
2570 GX%=GxX%+dir% : ENDPROC 

2580 : 

2590 DEF FNfeasible(dir$) 


2600 IF GxX%+dir%<13 IF Gx%+dir$>0 IF pl 


ayfield’(Gx%+dir%,GY%,0)=0 AND playfield 
%(GX%,GY%,0)>0 =TRUE ELSE =FALSE 

2610 : 

2620 DEFPROCseedrop (SX%, SY$) 

2630 COLOUR coldat%(playfield%(Sx%, Sy%, 
0)+2) : PRINTTAB(SX%+1,SY$*2-2) ;" ";CHRS10 
;CHRS8 ; CHRS (240+playfield% (Sx%, SY%, 0) *2) 
;CHRS$8 ; CHRS$10 ; CHR$ (241#playfield$ (SX$, SY 
$,0) *2) 

2640 PROCwait (5) :SOUND 0,1,52,1 

2650 PRINTTAB(SX%+1, SY$*2-1) ;" ";CHRS10 
;CHRS8 ; CHRS (240+playfield% (SX$, SY$, 0) *2) 
GCHR$8; CHRS$10 ; CHR$ (241+play field% (Sx%, SY 
$,0) *2) 

2660 ENDPROC 

2670 : 

2680 DEFPROCgo (CX%, CY%) 

2690 COLOUR coldat%(ZB%+2) : PRINTTAB (CYS 
+1,CY%*2) ;CHR$232; CHR$8; CHRS$10 ; CHR$233 

2700 SOUND 0,-4,13,1:PROCwait (3) 

2710 PRINTTAB (CX%+1, CY$*2) ;CHRS234;CHRS 
8;CHRS10;CHRS235 

2720 SOUND 0,-8,13,1:PROCwait (3) 

2730 PRINTTAB(CX$+1,CY%*2) ;"_";CHRS8;CH 
RSLAS 

2740 nblocks%=nblocks%-1:score=score+5* 
ZB%:SOUND 0, -12, 13, 1:ENDPROC 

2750 : 

2760 DEFPROCwait (Q%) :AS=INKEY$ (0$) :ENDP 
ROC 

2770 : 

2780 DEFPROCintro:PROCcent ("bbcZEUS - t 
he brainache.", 12,20, TRUE) 

2790 PROCcent ("Thanks to:",6,2,FALSE) :P 
ROCcent ("The ZEUS Team for the original" 
, 8, 2, FALSE) : PROCcent ("Andrew Rowland for 

the soundFX", 9,11, FALSE) 

2800 PROCcent ("Commodore for the Amiga 
500",11,2,FALSE) :PROCcent ("and BBC Emula 
tor", 12,2, FALSE) :PROCcent ("Mike 'Mikey M 
ike' Poutney for ideas", 13,11, FALSE) 

2810 ENDPROC 
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2820 : 

2830 DEFPROCcent (A$, V%,T%,D%) : PRINTTAB ( 
(40-LEN (A$) ) /2-1,V%) ;A$ 

2840 OS-INKEYS (T$*10) : IF D% PRINTTAB( (4 
0-LEN (AS) ) /2-1,V%) ; SPC (LEN(AS) ) 

2850 ENDPROC 

2860 : 

2870 REM Colour Data 

2880 DATA 1, 0,2.3,3 23,8 2 

2890 : 

2900 MODE7 :CLOSE#0 : *FX4 


1100 DATA 8,5, 7,6, 8,8 
TELO. : 
1120 DATA 8,3,4,2,4,0,0,0 


SIR VN Ep OES G TE n ro; Or GET. 
6,8, 6,9 

1140 DATA 6,4, 8,5, 8,7 

1150 DATA 5,6, 9,7, 4,8, 8,8 

1160 DATA 4,6, 5,7 

1179 DATA 8/6: 47; 5,8, 7.8 

1180 : 

1190 DATA 8,3,4,3,3,0,0,0 


1200) DATA;6, 3 Ma ty Aye Dre nO te Ty 


2910 IF ERR<>17 REPORT:PRINT " @ ";ERL 1,8, 7,9 
2920 END 1210 DATA 4,3, 6,4, 4,10 
L 1220 DATA 5,3, 5,8, 5,10, 7,10 
poe 1230 DATA 6,5, 6,8, 6,10 
ara 1240 DATA 4,8, 6,9, 8,10 
EE EEN = 1250 : 
10 REM Program ADATA 
‘eg: 1260 DATA 11,3,3,3,2,2,0,0 
ss at Sacr, z in Fish gente | 1270 DATA 5,3, 6,3, 7,3, 8,3, 5,4, 6,4, 
40 REM BEEBUG March 1992 K K ie ie 
50 REM Program Subject to Copyright th ere By 
eds 1290 DATA 9,3, 6,7, 6,9 
On 1300 DATA 4,4, 5,6, 7,6 
110 INPUT"Filename: "files eos ba Ed ‘sie 
120 out$=OPENOUT (file$) ed id 
130 RESTORE 1000 Unie ae 
140 FOR A$-0 TO 4:PRINTHout%, "T H Pine DATA 7,5,5,0,0,0,0,0 
apple", 300* E :NEXT 1350 DATA 5,5, 5,6, 5,7, 5,8, 7,5, 7,6, 
150 FOR L%=1 TO 8 Ta 
160. DR gon HO? 1360 DATA 6,5, 4,6, 8,6, 6,7, 8,8 
170 READ X$ :T%=T%+X% : PRINT#outS, X% 1370 DATA 6,6, 8,7, 4,8, 7,8, 5,9 
180 NEXT 1380 : 
90 FOR B$-1 TO T%:READ X$, Y% : PRINT$OU 1390 DATA 6,4,2,4,3,0,0,0 
EEKE ENOT 1400 DATA 5,4, 6,4, 5,5, 6,6, 6,7, 6,8 
300 E 1410 DATA 4,4, 7,7, 8,8, 7,9 
210 CLOSE¥out$: END 1420 DATA 4,5, 7,5 
W 1430 DATA 5,6; 7,6, 87, 7,8 
230 REM Levels Data 1440 DATA 8,6, 8 od. 9,7 
1000 DATA 5,2,2,3,0,0,0,0 1450 : 
1010 DATA 7,4, 7,5, 7,6, 6,6, 6,7 1460 DATA 18,4,5,6,4,4,2,0 
1020 DATA 6,4, 8,6 1470 DATA 4,4, 5,4, 6,4, 7,4, 8,4, 9,4, 
1030 DATA 4,6, 5,7 40, oie Cio 1,8 oro, MOE Ee re | 
1040 DATA 5,6, 7,7, 6,8 , 10,6, 6,7, 7,7, 6,8 
1050 : 1480 DATA 3,5, 8,5, 5,7, 9,7 
1060 DATA 8,3,2,3,0,0,0,0 1490 DATA 3,6, 5,6, 8,6, 5,8, 10,9 
1070 DATA 5,5, 6,5, 5,6, 6,6, 5,7, 6,7, 1500 DATA 4,6, 3,7, 4,8, 9,8, 5,9, 8,9 
5,8, 6,8 1510 DATA 9,6, 8,7, 3,8, 4,9 
1080 DATA 7,5, 8,7, 7,8 1520 DATA 4,7, 10,7, 8,8, 3,9 
1090 DATA 7,7, 8,6 1530 DATA 10,8, 9,9 B| 
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Magscan 


An updated version of Magscan, which contains the 


complete indexes to all BEEBUG magazines from 
Volume 1 Issue 1 to Volume 10 Issue 5 


BEEBUG MAGSCAN VOLUMES 1-9 


Volume 1234656789 
Type : All 

String 1 : BASIC 

String 2 : PROGRAM 

Logic : AND 


Edikit (Part 5) 

Basic Program Utility/Toolkit ROM 
Programming Utilities 

Vol 9 No 1 Page 30 


Thanks for the Memory - Basi28 (Part 1) 
Main Memory Resident Version of Basic 
Sideways RAM Program Storage 

Vol 9 No 3 Page 20 


Hint: Improved Move-Down Routine 
Using Additional Program Lines 
Basic/PAGE/Memory Restrictions 
Vol 9 No 4 Page 61 


Magscan with disc and manual 

Stock codes: 0005a 5.25"disc 40 track DFS 
0006a 5.25"disc 80 track DFS 
1457a 3.5" ADFS disc 

Magscan update 

Stock codes: (0011a 5.25"disc 40 track DFS 
0010a 2 25"disc 80 track DFS 
1458a 5" ADFS disc 


£9.95+p&p 


£4.75 +p&p 


Comprehensive Magazine Database 
for the BBC Micro and the Master 128 


Magscan allows you to locate instantly all references 
to any chosen subject mentioned anywhere in the 95 
issues of BEEBUG magazine to date 

Just type in one or two descriptive words (using 
AND/OR logic), and you can find any article or 
program you need, together with a brief description 
and reference to the volume, issue and page 
numbers. You can also perform a search by article 
type and/or volume number. 

The Magscan database can be easily updated to 
include future magazines. Annual updates are 
available from BEEBUG for existing Magscan users. 


Some of the features Magscan offers include: 

€ full access to all BEEBUG magazines 

€ rapid keyword search 

@ flexible search by volume number, article type 
and up to two keywords 

@ keyword entry with selectable AND/OR logic 

@ extensive on-screen help 

@ hard copy option 

€ easily updatable to include future magazines 

€ yearly updates available from BEEBUG 


Special Offers to BEEBUG Members March 1992 


ASTAAD3 - 5" Disc (DFS) 
ASTAAD3 - 3.5" Disc (ADFS) 
Beebug Applics I - 5" Disc 
Beebug Applics I - 3.5"Disc 
Beebug Applics II - 5" Disc 
Beebug Applics II - 3.5" Disc 
Beebug Utilities - 5" Disc 
Beebug Utilities - 3.5" Disc 
EdiKit 40/80 Track 

EdiKit EPROM 

EdiKit 3.5" 


Magscan Vol.1-8 40 Track 
Magscan Vol.1-8 80 Track 
Magscan Vol.1-8 3.5" ADFS 
Magscan Update 40 track 
Magscan Update 80 track 
Magscan Update 3.5" ADFS 


Arcade Games (5.25" 40/80T) 
Arcade Games (3.5" ) 

Board Games (5.25" 40/80T) 
Board Games (3.5") 

Beebug magazine disc 


C - Stand Alone Generator 
Masterfile ADFS M128 80 T 
Masterfile DFS 40 T 
Masterfile DFS 80 T 
Beebug C 40 Track 
Beebug C 80 Track 
Command 
Command(Hayes compatible) 
Dumpmaster II 

Exmon II 

Master ROM 

Beebug Binder 


Have you got your BEEBUG Binder for Volume 10? 


Only £4.20 


RISC Developments Ltd, 117 Hatfield Road, St Albans, Herts AL1 4JS. Tel (0727) 40303 Fax (0727) 860263 


RAT. dT HATS, HINTS HINTS, 


Hints and Tips Please keep your hints and tips 
coming in. Remember, we pay for all those we 
publish. 


WORDWISE PLUS PREVIEW 
SCROLLER 


Ian Crawford 

To stop the screen scrolling too quickly when 
using the Wordwise Plus Preview option 
(Option 7), use Fl(green) DS F2(white) on the 
first line of your text. This does two things - it 
inverts the screen display (making it clearer) 
and it slows down the display by 50%, 
making the text much easier to read. Don’t 
forget to delete the DS code before 
printing/saving! 


DEFINED UNDEFINED VARIABLE 
Bernard Hill 
If x is a variable in a Basic program that has 
not been defined, then one would expect the 
line: 

x=x+1 
to give a “No such variable” error. However, 
what the Basic interpreter does is to create a 
variable called x when it sees “x=”, initialise 
it to zero, and then go on to execute the “x+1” 
part. So the overall effect of this statement is 
to set x to 1. This in itself may not be terribly 
useful, but it can save a line in a loop which 
increments the variable x every time, starting 
x from 0. So in the following program, line 10 
can be omitted if memory is short, for 
example. 

T0 El, 

20 REPEAT 

30 x=x+1 

40 UNTIL x=25 


BACKUP ON THE RIGHT TRACK 


Kieren Hollingsworth 

While I was transferring my own program 
discs during my transition from 40 to 80 track 
drives, I discovered something strange. When 
1 used *BACKUP to copy my 40 track disc onto 
my 80 track disc, the copy (when *MAPped) 
showed only the capacity of a 40 track disc. 
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The problem is that the catalogue sectors are 
just blindly copied across, and these contain 
the size of the disc amongst other things, so 
the destination disc looks like a 40 track disc. 
The solution, of course, is to use *COPY ‘to 
copy the files across one at a time. 


MORE INVISIBLE BOOTS 
Eric Quarmby 
I note Paul Baron’s hint for hiding the output 
from !Boot files (Vol.10 No.7). The following 
little program creates an invisible !Boot file 
automatically. 

10 CLS:PRINTTAB(1,7)"Put the new disc i 
n the drive and press a key":A=GET 

20 CLS: INPUTTAB(3,7) "Program to be CHAI 
Ned: "AS 
; 30 IF LEN(AS$)>7 THEN GOTO 20 

40 F-OPENOUT" ! Boot " 

50 BPUT#F, 28:BPUT#F, 0:BPUT#F, 0:BPU 
T#F,0 

60 BPUT#F, 0:BPUT#F, 67 :BPUT#F, 72 

70 BPUT#F, 46:BPUT#F, 34 

80 FOR X=1 TO LEN(AS) 

90 BPUT#F, ASC (MIDS (AS, X, 1) ) 

100 NEXT:BPUT#F, 34: BPUT#F, 13 

110 CLOSE#F:*ACCESS !Boot L 

120 *OPT 4 3 

130 END 
Note the best way to examine the contents of 
an invisible !Boot is to use *DUMP (as you 
can’t use *TYPE or *LIST). 


SPELLMASTER ON A 2ND 
PROCESSOR 

lan Crawford 

I’ve owned Spellmaster since it came out, but 
as I now always use a second processor, I 
thought it was useless as it doesn’t work (on 
text) with this on. However, it is possible to 
use Spellmaster to check individual spellings 
from either the Menu mode or Text mode of 
your word processor simply by pressing Ctrl- 
B to bring down the dictionary window. You 
can then type in your word to be checked. 
What Spellmaster does not do now, however, 
is transfer the word into your text, as it does 
when used on a normal BBC. B 
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APPEAL FOR HELP 


Matthew is a 13 year old blind boy with a 
Master 128 computer, purchased from 
Beebug. He is having problems loading his 
special blind software from disc, and needs 
some advice. 


Are there any BEEBUG members in the 
Torbay area who would be willing to give up 
an hour or so of their time to help him? I 
know that he and his family would be most 
appreciative. If anyone can help, please could 
they ring him or his parents on Torquay 
(0803) 524238. 

John Wardley 


We are confident that BEEBUG members will 
respond to Matthew's needs and help him. 


PRAISE FOR SJ RESEARCH NETWORK 
SUPPORT 


We so seldom read about networks in your 
columns that I wanted to publicise the 
following. Several years ago I purchased a 
network system for our BBCs from SJ 
Research of Cambridge. We recently had a 
problem with part of the system. Instead of 
taking the “Oh, your system is out of date... 
buy some new stuff” attitude of some firms, 
SJ worked hard with me to get our old system 
working. Through some generosity on their 
part, I once again have a working system at 
very little cost to the college. Not all firms 
choose to exercise their right to apply the 
“fair wear and tear” exclusion in their 
warranties, or indeed the time limitation. The 
problem might have been beyond SJ’s 
control, but they had sold the system, and 
they stood honourably behind it. 
Tom Boyd 
Seaford College 
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ADVICE ON CHOOSING A DATABASE 
I use a BBC B with Wordwise Plus, Watford 
DFS and single drive 40/80 track disc unit. To 
this I wish to add a database with the 
following uses in mind: 

1. An index for a large collection of slides, to 
give reference number and subject keywords. 


2. Research into family history, for which I 
need to retain certain records of past and 
present members and their histories, and an 
index of documents relating to them, 
incorporating transcripts of documents (or at 
least summaries up to say a full A4 page), 
searchable by date, person, locality etc. 


Not having tackled this sort of work before, I 
cannot fully define my needs, but I expect 
many of BEEBUG's readers have a much 
better idea of what I will need than I do at 
present. I would also prefer a system which 
has compatibility with Wordwise. 

John Pope 


Mr. Pope's first requirement can be handled quite 
easily by Masterfile II available from RISC 
Developments, Computer Concepts’ Interbase, or 
Acornsoft's ViewStore. 


The second application is significantly more 
complex, involving records of different types, links 
between them, and the need to include significant 
free format text. One solution would be to 
investigate specific Genealogy software - one such 
package is available from Micro-Aid, Kildonan 
Courtyard, Barrhill, South Ayrshire, Scotland 
KA26 OPS, tel./fax (0465) 82288. Another solution 
is to write your own specific database system, and 
in this case the book File Handling for All, 
published by RISC Developments, contains much 
that would be useful. If other readers can provide 
information on any other sources of potentially 
useful database software then please let us know - 
we can pass it on to Mr.Pope, and publicise it on 
our Postbag page. B 
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Personal Ads 


BEEBUG members may advertise unwanted comp’ 
(including 'wants') in BEEBUG. These are complet 


uter hardware and software through personal ads 
ely free of charge but please keep your ad as short as 


possible. Although we will try to include all ads received, we reserve the right to edit or reject any if 


necessary. Any ads which cannot be accommodated 
advise us if you do not wish us to do this. We will acc. 
should ensure that they always receive original copi 


We also accept members’ Business Ads at the rate 
featured separately. Please send us all ads (perso. 


this facility. 


in one issue will be held over to the next, so please 
ept adverts for software, but prospective purchasers 
es including documentation to avoid any abuse of 


of 40p per word (inclusive of VAT) and these will be 
nal and business) to MEMBERS' ADS, BEEB UG, 117 


Hatfield Road, St. Albans, Herts ALI 4JS. The normal copy date for receipt of all ads will be the 5th of 


3.5" single disc drive, hardly used £40, 
Brother HR35 daisywheel printer, fast 
(40 cps), wide carriage, high quality 
print, including over £50 worth of high 
quality carbon film ribbons £200, 
Archimedes A310, good condition with 
Acorn colour monitor and misc software 
£500, GEC Datachat 1223 modem 
1200/75 £25. Tel. (0484) 846126. 


A3000 with 2Mb upgrade, Acorn colour 
monitor, Pres monitor stand, Ist Word 
Plus, Acorn DTP, Break 147 & 
Superpool, Alpha Base, Pacmania, Arc 
Omnibus, Lemmings plus various public 
domain discs thrown in £850. Tel. 081- 
654 3733. 


BBC B issue 7 useful for spares £50, dual 
40T Cumana drives £40, boxed Citizen 
120D+ printer with cable £100, various 
books inc. 30 Hour Basic £5 BBC 
Advanced Basic course £10, bound 
Advanced User Guide £10, ROMs inc. 
ANFS £5 Graphics £10, 1770 £25, ADFS 
£40, new Plotmate scanner & software 
£20, new Bitstick plotter/printer driver 
software £20, tape deck £10, lots of BBC, 
Electron disc and tape-based software 
from £2 each. Tel. (0483) 480632. 


Due to machine upgrade - For Sale; 
Interbase BBC ROM and manual £25, 
AMX mouse and ROM with Art disc 
and handbooks £25. Tel. (0202) 432489. 


M128, twin 40/80 Cumana drive, 
Microvitec 452 colour monitor, Teletext 
adaptor, usual resident software plus 
Wordwise Plus, loads of other software, 
full documentation and manuals, 
complete bound volumes of BEEBUG 
from Vol.1 No.1 the lot for £425, buyer 
collects (Cardiff). Tel. (0446) 738895 or 
Fax 749891. 


M512, mouse, joystick, green screen 
monitor, twin 5.25" drives, music 500 
synthesiser, reference manuals, 
advanced reference manual, Dabs 512 
User and Technical guides, DOS 
reference book, programming guides, 
extensive BBC & 512 software, monitor 
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each month. 


stand, excellent condition all for £600. 
Tel. (0533) 546539 eves. 


M128 reference manuals £16, Master 
Smart cartridge £20, Masterfile II (ADFS) 
£15, Genie Junior (ADFS) & utility disc 
£15, Dumpout 3 £10, Exile (disc) £6, 
Repton Infinity (cass) £6, Knitwear 
Designer (disc) £6 Play It Again Sam 
411,14 (discs) £4 each, Clogger, Zenon, 
Roundheads £4 all 3. Tel. 091-264 2059 
after 6pm. 


Citizen 120-D printer, good condition 
and spare ribbon £50, Ferguson 12" 
green screen monitor £20. Tel. (0427) 
890750 eves and w/ends. 


WANTED: BEEBUG magazine Vol. 5 
No.2 and 10 or photocopies. Tel. (0203) 
610445. 


Brother M1009 printer complete with 
NLQ font, manual, spare ribbons, BBC 
lead, £60 postage paid. WANTED: 
Interbase by CC for BBC, must be clean, 
complete and the latest version.Tel. 
(0829) 270176 eves & w/ends. 


Acorn Z80 second processor as new 
with full CP/M documentation £50, 
unused Casio 64k SF-9500 Digital Diary 
£100, VTX5000 modem for Sinclair 
Spectrum £15, no reasonable offer 
refused for "Torch" Z80 co-processor 
system, with exhaustive documentation, 
Apricot Xi with hard disc in PWO but 
minimal documentation. Tel. (0232) 
668979. 


A3000 with 2Mb RAM upgrade, Philips 
CM§8833 stereo colour monitor, Pres 
monitor stand, system housing, 5.25" 
disc drive, disc buffer, 65Host DES, 
podule case, latest PC Emulator, covers, 
all manuals etc. as new, the perfect 
educational system £875. Tel. (0444) 
454348 eves. 


Pres disc drive as new including fitting 
instructions, excellent condition £45 
o.mo. Tel. (0444) 454348 eves. 


WANTED: Instructions for fitting ATPL 
ROM board to a BBC, B+, 128. Tel. 081- 
555 9069. 


M128, complete with 3.5" and 5.25" disc 
drives, metal bridge stand which 
accommodates the disc drives and VDU, 
also included are Wordwise Plus II and 
Spellmaster ROMs, all manuals included 
£300 + carriage. Tel. (0481) 45866 extn 
351 between 1pm and 2pm. 


Master 512 (& Gem, mouse etc.) £330, 
dual Cumana 40/80 disc drive (CD800S) 
£100, Demon modem (& ROM) £30, 
green screen monitor £15, Overview £30, 
Viewstore £15, Viewsheet £15, ADI £15, 
Printmaster £15, Disc Doctor £15, 
complete set of BEEBUG (to date) £45, 
plus many other items. Tel. (0928) 
564412. 


Disc drive 80T, double sided, double 
density no PSU £35. Tel. (0772) 617315. 


40/80T disc drive as new £50, boxed 
Intersheet £15, CST Procyon IEEE 
interface £15, 12" NEC mono monitor 
£30, ATPL ROM board £15, Z88 "all in 
one pack" with case, manual, PSU and 
128k RAM module £145, A310 base unit 
£400, Wordwise ROM £12. WANTED: 
BBC Master for less than £150. Tel. (0483) 
480632. 


Electron fitted with Jafa shadow RAM 
board giving 64k RAM and Turbo £80, 
Slogger ROMbox Plus with printer 
interface, sockets for four ROms and two 
cartridges £35, Pres ADFS plug-in disc 
interface £30, View and Viewsheet 
cartridges £15, all manuals, offers 
considered. Tel. (0483) 763470. 


Arc. 410/1 50Mb hard disc and 4Mb 
RAM, Acorn colour monitor, LQ550 
Epson printer and manuals £1300. Tel. 
091-252 4816 eves. 


WANTED: Working BBC B compatible 
joystick, will pay up to £10 and.or 
software Tel, (0822) 840706. 
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DS 80T DD, standard molex & edge 
connectors, uncased in metal chassis, as 
new & 10 discs (mostly unused) in 
lockable storage box £80, BBC leads 
(105m) £8 extra. Tel. 031-453 3328. 


Modem, Pace Nightingale V21/23 with 
BEEBUG Command communications 
ROM (scrolling text and Viewdata), plus 
data cable for BBC computer, everything 
in mint condition with original instruction 
manuals £45, inc. p/p. Tel. (0294) 52250 
eves. 


Marconi Tracker ball and adaptor 
(unused) £14, Acorn data cassette 
recorder £10, Kaga Taxan K12 12" green 
screen monitor £20, Tel. 081-318 
5155. 


BBC 512 co-processor, Essential 
Softwares 1Mb memory 
expansion fitted, Acorn mouse, 
all manuals, Gem suite, DOS 
2.1, 11MHz X-TAL fitted, 
Essential Softwares Pop-Up 
Notepad, 36 shareware discs 
including Master shareware 
Vols.1&2, all in mint condition, 
quick sale, serious offers please 
(0326) 240734. 


M128 £250, Turbo board 
(65C102) £50, Acorn Universal 
second processor £30, Cumana 
twin 5.25 80T/40T switchable 
disc drives with PSU £75, 
Microvitec Cub 452 colour 
monitor £50, Delta twin 
joysticks £5, 512 board 
upgraded to 1Mb & DOS, plus 
Gem & mouse etc. £175, Dabs 
Press M512 shareware 1&2 £10, 
plus loads of software ROMs, 
discs etc. all originals and with 
full documentation, will sell 
separately or together, ideal for 
a beginner or school. Make me 
an offer. Tel. 081-694 9340 eves 
or w/ends. 


lairdressing Programs ‘Hairdressing’, Manicure and Make Up’, 'An & Wigmaking’, 'Fashion 
& Costume’. 


M512k expansion board, 
includes DOS, mouse and full 
instructions £95, BEEBUG 
Master ROM, in original box 
£20, BASF blank 5.25" discs £4 
for 10, Morley teletext adaptor, 
suit BBC B or BBC Master £55. 
Tel. (0253) 67987 after 7pm. 


Pace Nightingale multi function modem, 
plus Commstar ROM for BBC B, 
manuals, offers? Tel. (0286) 880997 eves. 


512 upgrade for Master, plus Essential 
Software's 1Mb memory expansion, 
includes DOS+ 2.1, manuals, Gem 
software, mouse, 512 BBC Basic, Essential 
Software's 512 disc utilities, GOBBC/512, 
Suprstar, Dabs Press 512 User Guide and 
512 Technical Guide both with supporting 
discs £170. Tel. (0235) 835253 any time. 
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Dual Cumana disc drives 40/80T, DS 
with own PSU £120, Microvitec colour 
med. res. monitor (1451) £110, Master 
Replay with BBC B emulation £35, Nid 
Valley Digimouse with Grafix, Illustrator 
and Chauffeur £40, Morley teletext 
adaptor with Design 7 £50, Spellmaster 
ROM £30, Mini Office II (BBC B 80T) £5, 
PMS Multi-Font with two library discs 
£20, Dabhand View book with disc £10, 
Dabhand Master Operating System £6, 
Master Viglen ROM cartridges (2) £10, 
Exmon II £10, Supergraph, Speech, Micro 
Aid Mailing, Image, Elite, Repton, printer 
monitor ROM, Dumpmaster, Masterfile 
II, Ouickcalc, PLAS. 1 this lot for £25. 
Tel. 051-606 0289. 


Wish something new was happening for 
your BBC Micro, Master or Electron? 


Something is! 


New BBC Public Domain catalogue out now 


over 120 discs available! 


Send £1.50 for catalogue and sampler disc to 
BBC PD, 18 Carlton Close, Blackrod, 


Bolton, BL6 5DL 


Make cheques payable to; 


'A Blundell’ or send an A5 s.a.e for more details 


(Please state disc size and format) 


Existing users; send your catalogue disc and s.a.e for updating 


Shareware - BBC (40 or 80 Track discs) 
John Lyons Computer Shareware 


All 60 programs marketed by John Lyons and normally sold for £15 each 
are now available as Shareware. These include: 


‘Are you a gourmet”, 'Eating out - understand that menu’, 
‘World in a Glass - Wines’, 'Kitchen Bomber’, Recipe Costing’, 


"Recipe Calculations’, etc. 


‘Nutritional Maze’, 'Nutritional Raiders’, 'Vitamins', 'Fats & Oils’, and 


many more similar programs, 
"Balanced Meal' & 'Diet Ed’ 


For the DIY extbusiast 'Hot water systems’, ‘Cold water systems’, ‘Maintenance Maze’ & 
Utility Programs 
John Lyons Computer Shareware, 6 Queens Road, Camberley, Surrey GU15 3AN 


"Maintenance 


All available as Shareware at £1.50 per disc from: 


Watford ROM/RAM board with 128k 
SWR and 7 ROM sockets (total) also has 
battery for bank E which needs 2 off 6264 
chips, sensible offers please. Tel. (0525) 
715013 after 6pm. 


Acorn 32016 co-processor as new, 
Acorn’s ultimate 32 bit, 1Mb boost for the 
BBC micro or Master, cost £900 will sell 
for £50 o.n.o. Tel. (0207) 520379. 


M128 with Overview and all manuals 
including reference manuals 1&2 £200, 
512 board with ES 1Mb expansion, Gem 


"Bar Charts & Graphs’, "Teachers Mark Book’, 'Pixel Plotter & Draw 


software, mouse and manual, Dabs Press 
user and Technical guides, ES utilities 
and Dabs shareware Vols.1&2 £200, WE 
bridge 5.25/3.5" disc drives £100, 
Hyperdriver, ADT, BEEBUG Master and 
Utlracalc ROMs with manuals £10 each, 
Microvitec Cub monitor £50, Shinwa 
CP80 printer & spare ribbons £25, other 
books, magazines and discs, please ask. 
Tel. (0684) 563408. 


WANTED: For BBC B, educational 
games software cassettes for use by 6-10 
yr olds, Tel. 061-962 4400. 


512 co-processor for Master 128 with 
mouse, DOS 2.1, Gem software, 
Acorn 512 User Guide, Dabs 
Press User Guide, all in 
excellent condition £140 
complete. Tel. (0532) 613389. 


Acornsoft View Professional, 
boxed, unused £25 o.n.o. Tel. 
(0925) 726441. 


M128, dual 80T disc drive with 
PSU, Philips colour monitor, 
GIS teletext adaptor, 2 ROM 
and 1 RAM cartridge, Master 
ROM, Viewstore, CP ROM, 50 
discs, 2 disc boxes all manuals, 
BEEBUG Vol.1 to Vol.10 
complete in binders £550pr 
split. Tel. (0602) 654002. 


M128, 2x 5.25"DS DD, 
Microvitec colour monitor, 
Morley Master board AA, 
Dumpout 3, Spellmaster, 
Morley teletext adaptor & 
ROMs, Morley EPROM 
programmer & ROM, Uvipac 
EPROM eraser, 100 assorted 
5.25" programmed discs, 
Cumana Graph Pad, ADT, 
Commstar, MOS+, Care Quad 
cartridges x3, Welcome Guide 
& disc, Ref books include; Disc 
Companion, Understand-ing 
1/Word, Master Operating 
System, Century Computer 
prog. Course, Complete User 
Handbook, Graphics on BBC, 
Advanced User Guide, 
Advanced Disc User Guide, 
Discs include; Fax-File Organiser, 
Fancy Label Suite, Magscan to Vol.9, 
Morley ATS Utilities, Crossword 
Compiler (Panda), Family History, 
Scapeghost, Disc User discs, and some 
AU discs, all with documentation and 
manuals £350 o.n.o. Tel. (0442) 826079 
after 6pm. 


WANTED: M128 Advanced reference 
manual, M128 Reference manuals 1&2, 
M128 Welcome Guide, all in clean 
condition. Tel. (0270) 625691. 
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publication in BEEBUG. All 
paid for at up to £50 per page, 
anything substantial that you i 


to Contributors’ is available on 


ase inclu 
munication, 


membership number. 
RISC Dev 


Printed by Arion Printers (0923) 


MARCH 1992 
DISC CONTENTS 


- The first part of the two 
dimensional ray tracing package allowing YOU to define 
the light source and the shapes to be traced 


- The complete MikroQuole quotations 


machine code title printing routine to make this 
professional package look even better. 


~ This month we 
present the Game of Zeus, 4 mind-bending puzzle 
me that guarantees to fry your brain. Next month we 

NI 


Routines for formatted output, some on an Epson 
compatible printer and some returning strings for use on 
any output. 


- A ROM image that 
provides commands to clear the screen in various eye” 
catching ways. Also included is a demonstration program. 


_ Two programs that draw 
Chequer boards. One draws an orthogonal board (like a 
board) and the other 4 skew board (in the shape 

da parallelogram). 


- A program trom Vol.7 No.1 which 
allows all printer output to be $ ed to a disc file. This 
enables printed output from other sources to be add 
to word processors etc. 


_ More Wordwise 
Plus segment programs showing how to use sound to 


' - This handy utility takes 4 formatted 
text file and creates a Basic program that prints out the 
text in its formatted form, thus saving hours of character 
counting and trial and error. 


- Bibliography tor this issue (Vol.10 
No9). 
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Creating a Chequer Board 
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Software for the BBC Micro 
and Master series 


BEEBUG MAS ILE II 


. Set up file name 
. Enter record description 
: Look atvalter a record 
| Printer configure 
e 


A 

8 

c 

D 

E 

F. iserClear file 
G. Enter search data 

y Print-Search file 
J 
K 
k 
M 
N 
o 
P 


. Sort 
| Transterzappend files 


. Compact the file 


| Stop the 
OPTION? 


Masterfile II 


Masterfile II is the best selling general 
purpose database for the BBC Micro and 
Master 128. It has many powerful 
features, but is easy-to-use and ideally 
suited for home, business or school. It is 
supplied ready to run and no 
programming skills are required. 

* Menu driven for ease-of-use. 

* Fast 'tag' sorting. 

* Flexible print layouts. 

* Global calculations. 


* File size limited only by disc capacity. 


* File append options, 

* Search for a particular match. 
* Sorting on any field or fields. 
* Direct fast access to any record. 
* Form designer. 

* Label printing facility. 

* Record insertion. 

* Example database and tag files. 


Normal price: £22.48 inc VAT 


Members price: £16.86 inc VAT 
Stock code 0024 40T, 0025 80T, 
0081 ADFS for Master 128 only 

Please add £2.00 carriage. 


Re 4 
Hame: PRESTEL 
Number: Ọ1-618-iiii 
44444444444444 
VIEWDATA 


Receive 
OFF 
>: 75 1200 
tee ce a er nnn ne 
Standard: 2 (7+1 bits even parity? 
Off o Me Off 


Off 200 220 
7 ô 


Command 

The Command ROM is a powerful 
communications package that may be 
both menu or command driven. 
Command may be used with Hayes and 
other intelligent modems. 
Text terminal - Use this to access 
scrolling text services such as Telecom 
Gold. XMODEM file transfer allows 
files to be sent around the world. 
Viewdata terminal - A full feature 
terminal giving access to Prestel and 
other Viewdata services. Frames may be 
saved to disc, printed, tagged etc. and a 
full feature Viewdata editor is provided. 
Telephone directory - Set up the name, 
number and log-on for services you wish 
to recall at a later date. 
Command driven - A wide range of 
commands may be used in Basic to 
create applications for your own 
individual needs. 

Normal price: £39.84 inc VAT 


Members price: £29.88 inc VAT 
Stock code: 0073 ROM 
Please add £2.00 carriage. 


Ouickcalc 


Quickcale is an easy-to-use disc based 


spreadsheet enabling you to use the calculating 
power of your computer without any need to 
program. It is ideal for personal accounts, stock 


control, and general financial planning. 
Normal price: £18.39 inc VAT 
Members price: £13.79 inc VAT 


Stock code: 0029 80T DFS 
Please add £2.50 carriage. 


Features include: 
* 20 x 50 default spreadsheet. 
* Load, save and print spreadsheet. 
* Replicate into row, column or area. 
* Simple histogram capability. 
* Individual column widths may be 
altered at any time, 
* Min, max and sum functions. 
* Very easy to use. 


Dumpmaster II ROM 


Dumpmaster provides fast screen dumps 
using up to 8 shades from any screen 
mode, It includes a ‘snapshot’ facility to 
dump screens from programs while they 


are running. A wide range of printers are 
supported, including Epson compatibles 
and the Star LC10 colour. 


Normal price: £31.68 inc VAT 


Members price: £23.76 inc VAT 
Stock code 0053. ROM 
Please add £2.00 carriage. 


Exmon II 


This acclaimed ROM adds over 60 


commands to maniplulate and debug 
machine code programs. Features include; 
* set breakpoints * trace * set registers 
* full-screen RAM editor * single-step 
* disas 
* line 


embler * dual screens * search 
ssembler * program relocator 


Normal price: £31.68 inc VAT 


Members price: £23.76 inc VAT 
Stock code: 0004 ROM 
Please add £2.00 carriage. 
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